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IMPORTANT SOFTWARE DISKETTE INFORMATION 


For your own protection, do not use this product until you have 
made a backup copy of your software diskette(s). The backup 
procedure is described in the user's guide for your computer. 


Please read the DISKID file on your new software diskette. 
DISKID contains important information including: 


° The product name and revision number 

fe) The part number of the product. 

° The date of the DISKID file. 

° A list of files on the diskette, with a description and 
revision number for each one. 

° Configuration information (when applicable). 

fo) Release notes giving special instructions for using the 
product. 

° Information not. contained in the current manual, including 


updated, additions, and deletions. 


To read the DISKID file onscreen, follow these steps: 


l. Load the operating system. 
2. Remove your system diskette and insert your new software 
diskette. 


Be Enter-- 
TYPE DISKID 


4. The contents of the DISKID file is displayed on the screen, 
If the file is large (more than 24 lines), the screen 
display will scroll. Type ALT-S to freeze the screen 
display; type ALT~S again to continue scrolling. 
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INTRODUCTION 


The MS (TM)-FORTRAN compiler accepts programs written 
according to the Subset FORTRAN-77 standard, 
described in the document American National Standard 
Programming Language FORTRAN, ANSI X3.1978. ‘The MS- 
FORTRAN language is described in the MS~FORTRAN 
Reference Manual. This User's Guide explains how to 
use the MS-FORTRAN compiler implemented for the MS- 
DOS operating system. 


SYSTEM REQUIREMENTS 


The MS~FORTRAN compiler requires a 256K system; at 
least 128K is required at run-time. You also need 
the MS-DOS operating system and the MS-LINK utility. 


The current implementation of the MS-FORTRAN 
compiler can take advantage of, but does not 
require, an 8887 numeric coprocessor. 


DOCUMENTATION 


The MS-FORTRAN User's Guide orovides an introduction 
to compiling and linking, a sample session, and a 
technical reference for the MS-FORTRAN compiler. 


The MS-FORTRAN Reference Manual describes the 
grammar and use of the MS-FORTRAN language. With 
the exception of any recent changes noted in the 
DISKID file, this is the language supported by the 
MS-FORTRAN compiler. 


ABOUT THIS MANUAL 


The MS-FORTRAN User's Guide describes the operation 
of the MS-FORTRAN compiler, fran the most 
rudimentary procedures to more advanced topics that 


may be of interest only to experienced programmers. 
This manual assumes that you have a working 
knowledge of the. MS-FORTRAN language and the HS-DOS 
operating system. For information on programming in 
FORTRAN, see "References" in this Introduction. 


Chapters 1 thourgh 4 should be read in their 


entirety by the first-time user of the MS-FORTRAN 
compiler. 


MANUAL CONVENTIONS 


The following notation is used in descriptions of 
command and statement syntax: 


CAPS Uppercase letters indicate portions of 
statements or commands that must be 
entered, exactly as shown. 


<> Angle brackets indicate user-supplied 
data. For lowercase text (e.g., 
<filename>), you supply an entry of the 
type defined by the text (a filename). 
For uppercase text, press the key named by 
the text (such as <RETURN>D). 


[ ] Square brackets indicate that the enclosed 
entry is optional. 

as Ellipses indicate that an entry may be 
repeated as many times as needed or 
desired. 


All other punctuation, such as commas, colons, slash 


marks, parentheses, and equal signs, must be entered 
exactly as shown. 


Pressing the Return (or Enter) key is assumed at the 
end of every line you enter in response to a prompt. 
If a Return is the only response required, however, 
<RETURN> is shown. 


REFERENCES 


The manuals in this package provide complete 
reference information for your implementation of the 
MS-FORTRAN compiler. They do not, however, teach 
you to write programs in FORTRAN. If you are new to 
FORTRAN or need help in learning to program, read 
any of these books: 


Agelhoff, Re, and Mojena, Richard. Applied 
FORTRAN 77, Featuring Structured Programming. 
Wadsworth, 1981. 


David, Gordon B. and Hoffman, Thomas R. 
FORTRAN: A Structured, Disciplined Approach. 
McGraw-Hill Book Company, 197°. 


Friedman, F., and kKoffman, E. Problem Solving 
and Structured Progranming in FORTRAN. Addison- 
Wesley, 2nd edition, 1981. 


Wagener, J.L. FORTRAN 77: Principles of 
Programming. Wiley, 198¢ 


l. GETTING STARTED 
1.1 PRELIMINARY PROCEDURES 


This section describes several preliminary 
procedures, sone of which are required amd some of 
which are highly recommended before you begin the 
sample session or compile any programs of your own. 
If you are unfamiliar with any of the MS-DOS 
procedures mentioned, consult your Operator's 
Reference Guide for instructions. 


1.1.1 BACKING UP YOUR SYSTEM FILES 
This step is optional but highly recommended. 


The first thing you should do after you unwrap your 
system disks is to make working copies of the disks. 
You can make the copies with the DCOPY utility 
supplied with MS-DOS. Save (archive) the original 
disks; if your working copies are damaged, you can 
make more copies from the originals 


1.1.2 PREPARING YOUR RUN-TIME LIBRARY 


This step is required. 


Two different run-time libraries are part of the 
MS-FORTRAN compiler softwares: 


l. FORTRAN.LEM provides software support for real 
number operations. 


2. FORTRAN.L87 lets you perform real number 
operations with an 8887 coprocessor. 


During linking, the linker automatically searches a 
run-time library called FORTRAN.LIB. Therefore, 
depending on whether or not you have the 8087 
coprocessor, you must rename the appropriate system 
library as FORTRAN.LIB (use the MS-DOS command REN). 


1-1 


You must have an 8087 installed in order to use 
FORTRAN.L87. Programs linked with FORTRAN. LEM work 
whether you have an 8887 or not. See Section 4.1.2 
for information about how the linker uses these 
libraries. 


1.1.3 SETTING UP YOUR SYSTEM DISK 
This step is recommended. 


Before you begin compiling and linking a program, 
check the contents of your MS-FORTRAN disk against 
the list in Table 1-1. Make sure you have all the 
files you need, including the linker utility, MS- 
LINK, from your MS-DOS package. The disk set up 
shown in Table 1-1 avoids reprompting from the 
system to reload certain MS-DOS files and eliminates 
the need to switch disks between passes of the 
compiler. 


Table 1-1: Suggested System Disk Set Up 
CONTENTS 


COMMAND .COM 

<text editor>* 
<other utilities>** 
FOR. EXE 

PAS2. EXE 

PAS 3. EXE 
FORTRAN. LIB 

LINK. EXE 


* any text editor that fits 


** MS-DOS utilities to set up printer, clear screen, 
sort directory, and so on. 
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To prepare a system disk, first FORMAT the disk. Then 
use SYSCOPY to put the operating system on the disk. 
(The Operator's Reference Guide contains 

instructions for FORMAT and SYSCOPY.) If you do not 
put the operating system on the disk, the compiler 
prompts you to insert your MS-DOS disk after each 
step, if it needs to reload COMMAND.COM. Finally, 
COPY the appropriate files to the disk. 


1.2 PROGRAM DEVELOPMENT 


This section gives a short introduction to program 
development (a multi-step process that includes 
writing the program, and compiling, linking, and 
running it). For a brief explanation of terms that 
may be unfamiliar, see Section 1.3. 


A microprocessor can execute only its own machine 
instructions; it cannot execute source program 
statements directly. Before you run a program, the 
statements in your program must be translated into 
the machine language of your microprocessor. 


Campilers and interpreters are two types of programs 
that do this translation. MS-FORTRAN is a compiled 
language. 


A compiler translates a source program and creates a 
new file called an object file. The object file 
contains relocatable machine code that can be placed 
into and run at different absolute locations in 
memory. 


Compilation also associates memory addresses with 
variables and with the targets of GOTO statements. 
Lists of variables or of labels do not have to be 
searched during execution of your program. 


Many compilers, including the MS-FORTRAN compiler, 


are “optimizing" compilers. During optimization, 
the compiler reorders expressions and eliminates 
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common subexpressions, either to increase speed of 
execution or to decrease program size. These 
factors increase the execution speed of your 


program. 


The MS-~FORTRAN compiler has a three-part structure. 
The first two parts, pass one and pass two, carry 
out the optimization and create the object code. 
Pass three is an optional step that creates an 
object code listing. Compiling is described in 
greater detail in Section 2.2, and in Chapter 3. 


A successfully compiled program must be linked 
before it can be executed. Linking is the process in 
which MS-LINK computes absolute offset addresses for 
routines and variables in relocatable object 
modules, and then resolves all external references 
by searching the run-time library. The linker saves 
your program on disk as a ready-to-run executable 
file. 


At link-time, you can link more than one object 
module, as well as routines written in assembly 
language or other high-level languages, and routines 
in other libraries. Linking is described in greater 
detail in Section 2.3 and in Chapter 4. 


Figure 1-1 shows the entire program development 
process. 
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Figure 1-l: Progran Development 
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Here is an explanation of each step shown in the 
Figure 1-1. 


iL. Create and edit MS-FORTRAN (and MACRO-86) 
source file. 


Program development starts when you write an 
MS-FORTRAN program. (You can use any general 
purpose text editor to do this.) Use a text 
editor to write any assembly language routines 
you may plan to include. 


26 Compile progran with SDEBUG. Assemble 
assembler source, if any. 


Once you write a program, compile it with the 
MS-FORTRAN compiler. The compiler flags all 
syntax and logic errors as it reads your source 
file. Include the SDEBUG metacommand in your 
source file to check for run-time errors. If 
compilation is successful, the compiler creates 
a relocatable object file. 


If you have written your own assembly language 
routines (for exanple, to increase the speed of 
execution of a particular algorithm), assemble 
those routines with the MACRO-86 Macro 
Assembler. 


You may have received MACRO-~86 as part of a 
utility package that came with your camputer 
system. If not, it is available separately in 
the Programmer's Tool Kit, Volume II. 


3. Link compiled (and assembled) .OBJ files to the 
run-time library. 


A compiled (or assembled) object file is not 
executable. It must be linked to one of the 
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run-time libraries using MS-LINK. Separately 
compiled MS~Pascal subroutines and functions 
can also be linked to your program at this 
time. 


4. Run .EXE file. 


The linker links all modules needed by your 
program and produces an executable run file 
with the extension .EXE. This file is executed 
by typing its filename. 


5a Recompile, relink, and rerun with SNODEBUG, 


After the program is canpiled, linked, and run 
without errors, you can recompile, relink, and 
rerun it with the SDEBUG removed. (This 
procedure reduces the amount of time and space 
required.) Chapter 6 tells how to work within 
the physical limits you can encounter while 
compiling, linking, and executing a program. 


1.3 VOCABULARY 


This section reviews some of the vocabulary used to 
discuss the steps in program development. The 
definitions are intended primarily for use with this 
manual. Neither individual definitions nor the list 
of terms is canprehensive. 


An MS-FORTRAN program is usually called a "source 
program" or "source file." The source file is the 
input file to the compiler and must be in ASCII 
format. The compiler translates this source and 
creates (as output) a new file called a "relocatable 
object file." The source and object files generally 
have the default extensions .FOR and.OBJ, 
respectively. After compiling, the object file is 
linked with the run-time library to produce an 
executable program or run file. The run file has 
the extension .EXE. 


L.3.L STAGES IN PROGRAM DEVEL 


The following terms describe stages in the 
Gevelopment and execution of a canpiled program. 


Compile-time: The time when the compiler is 
executing, during waich it canpiles an MS~FORTRAN 
source file and creates a relocatable object file. 


Link—time: The time when the linker is executing, 
during which it links together relocatable object 
files and library files. 


Run-time: The time when a compiled and linked 
program is executing. By convention, run-time 
refers to the execution time of your program and no 
to the execution time of the compiler or the linker 


1.3.2 LINKING AND RUN-TIME 


The following terms pertain to the linking process 
and the run-time Library: 


Module: A general term for a discrete unit of code 
There are several types of modules, including 
relocatable and executable modules. 


The object files created by the compiler are 
relocatable ~~ that is, they do not contain absolut 
addresses. Linking produces an executable module - 
one that contains the addresses needed to proceed 
with loading and running the program. 

Routine: Code in a module that represents a 
particular subroutine or function. More than one 
routine may reside in a mcedule. 


External reference: A variable or routine in a 


module that is referred to by a routine in another 
module. The variable or routine is "defined" in tt 
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module in which it resides. 


The linker tries to resolve external references by 
searching for the declaration of each reference in 
other modules. If found, the module in which the 
variable or routine resides is added to the 
executable module (if it is not already selected) 
and becomes part of your executable file. These 
other modules are usually library modules in the 
run-time library. 


When the variable or routine is found, the address 
associated with it is substituted for the reference 
in the first module, which is then said to be 
"bound". When a variable is not found, it is 
"undefined" or "unresolved." 


Relocatable module: One whose code can be loaded 
and run at different locations in memory. 
Relocatable modules contain routines and variables, 
represented as offsets relative to the start of the 
module. These routines and variables are at 
“relative” offset addresses. An address is 
associated with the start of the module when the 
module is processed by the linker. 


The linker then canputes an absolute offset address 
equal to the associated address plus the relative 
offset for each routine or variable. These new 
values become the absolute offset addresses used in 
the executable file. Canpiled object files and 
library files are all relocatable modules. 


These offset addresses are still relative to a 
"segment," (which corresponds to an 8888 segment 
register). Segment addresses are not defined by the 
linker; instead, they are computed when your program 
is loaded prior to execution. 


Run-time library: Contains the run-time routines 


used to implement the MS-FORTRAN language. A 
library module usually corresponds to a feature or 
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subfeature of the MS~FORTRAN language. 
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2. SAMPLE SESSION 


This chapter gives step-by-step instructions for 
compiling and linking an MS-FORTRAN program. You 
should work through the sample program before 
proceeding with any of your own MS-FORTRAN programs. 


If you enter commands exactly as described, you will 
have a successful session. If a problem arises, 
first make sure you correctly carried out all the 
required procedures in Section 1.1.1 Then carefully 
redo each step in the sample session up to the point 
where you had trouble. 


Creating an executable MS-FORTRAN program involves 
the following steps: 


1. Writing and saving an MS-FORTRAN source file. 


26 Canpiling your program with the MS-FORTRAN 
compiler. 


fe) Start pass one and enter filenames in 
response to the prompts. 


fo) Run pass two of the compiler. 
‘e) Run pass three of the campiler (optional). 
3% Linking your object file to the MS-FORTRAN 
run-time library. 
4; Executing (running) your program. 
Compiler passes one and two are required. You 
ordinarily need to run pass three only if you need 


or want an object listing. In this session, you 
-will produce an object listing. 
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The sample session assumes the following: 


fo) You have completed the necessary preliminary 
procedures. 
oO You have two disk drives (A and B). 


Oo The sample program is already debugged, so that 
it will compile, link, and execute 
successfully. 


) An object listing is required (all three 
passes of the compiler will be run). 


Oo No compiler or linker switches will be used. 


re) There are no problens with data, code, or 
memory limits. 


These assumptions are discussed in chapters 3, 4, 
and 6. They are referred to as appropriate in the 
following sample session. If all the files needed 
for the process are not on one disk, you must 
exchange disks between steps. For example, if 
FORL.EXE and PAS2.EXE are not on the same disk, you 
must remove the first disk after pass one and insert 
the disk containing PAS2.EXE 


2.1 CREATING AN MS~FORTRAN SOURCE FILE 


Turn on your computer and load MS-DOS. Insert an 
empty work disk in drive B. Log on to drive B -- 
making B the default drive. 


You can create MS-FORTRAN programs with any 
available text editor. The source file should. (in 
most cases) have the .FOR extension. ‘This sample 
session uses the program DEMO.FOR, which comes with 
the system software. 

Copy DEMO.FOR to drive B ~-- where it would be if it 
were your own program. 
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2.2 COMPILING YOUR MS-FORTRAN PROGRAM 
Compiling a program is a two or a three-step 
process, depending on whether you want to produce an 
object code listing. This sample session runs all 
three passes. 

2.2.1 PASS ONE 
In response to the operating system prompt, type: 
FORL 


This command starts pass one of the MS-FORTRAN 
compiler. (Actually, you can respond in either 
upper- or lowercase. This document uses uppercase 
for clarity.) 

The compiler prints a header that includes the date 
and version number, then prampts you for four file 
names : 

1. Your source filename 

2. An object filename 

3. A source listing filename 

4. An object listing filename 

Respond to the prompts as described in the following 
paragraphs. For additional information about the 
files themselves, see Chapter 3. 


1. The first prompt is for the name of the file 
that contains your MS~FORTRAN program: 


Source filename [.FOR]: 


2=3 


The prompt tells you that .FOR is the default 
extension for the source filename. Unless you 
want an extension other than .FOR, you can omit 
the extension when you type the filename. 


For now, type B:DEMO (to indicate that the 
source file is B:DEMO.FOR). 


The second prompt is for the name of the 
relocatable object file which will be created 
during pass two: 


Object filename (B:DEMO.OBJ] : 


The name in brackets is the name the compiler 
gives to the object file if you press the 
Return key. The filename is taken fran the 
source filename you gave at the first prompt; 
the .OBJ extension is the standard extension 
for object files. 


For now, type B:DEMO or press the Return key. 


The third pranpt asks for the name of the 
source listing file created during pass one: 


Source listing [NUL.LST]: 


As before, the prompt shows the default. 
Because the source listing is not required when 
linking and executing a program, it defaults to 
the null file; that is, no source listing file . 
is created if you press the Return key. If you 
enter any part of a file specification, the 
default extension is .LST, the default device 
is the logged drive, and the filename defaults 
to given for the source file. 


For this session, assume that you want the 
source listing written to a file called 
B:DEMO.LST. Type B:DEMO in response to the 
source listing prompt. 
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A. The last prompt asks for the object listing 
file to be created during pass three: 


Object listing [NUL.COD]: 


The null file is the default value for the 
object listing. If you press the Return key, no 
intermediate files are saved (you won't be able 
to run pass three). The same default naming 
rules apply here as elsewhere: if you enter 
any part of a file specification, the default 
extension is .COD, the default device is the 
logged drive, and the file name is the source 
filename. 


For now, type B:DEMO. When you run pass three, 
the object listing is written to a disk file 
called B:DEMO.COD. 


Compilation starts after you respond to all four 
pranpts. The source listing is written to the file 
DEMO.LST on drive B, as requested. When pass one is 
complete, this following message appears on your 
terminal screen: 


Pass One No Errors Detected. 


Errors are mistakes that keep a program from running 
correctly. If the compiler had detected errors 
during canpilation, an error message like this 
appears: 


Pass One 3 Errors Detected. 
The error messages are also given in the source 
listing. See Appendix A in the MS-FORTRAN Reference 
Manual for a canplete listing of MS-FORTRAN error 
messages. 


Pass one creates two intermediate files, PASIBF.SYM 
and PASIBF.BIN. The compiler saves both files on 
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the default drive for use diiring pass two. If there 
are errors, these two files are deleted and pass two 
cannot be run. 


2.2.2 PASS ‘two 
Start pass two by typing: 
A: PAS2 


Pass two does not ordinarily prompt you for any 
input. But it does: 


iA Read the intermediate files PASIBF.SYM and 
PASIBF.BIN created in pass one. 


2. Write the object file. 


3. Delete the intermediate files created in pass 
one. 


4, Write two new intermediate files, PASIBF.TMP 
and PASIBF.OID, for use in pass three. These 
files are written to the logged drive. 


When you compile your own programs, the last step 
varies, depending on your response to the object 
listing pranpt. If, as in this sample session, you 
plan to run pass three, pass two writes the two 
intermediate files. If you do not request an object 
listing in pass one, pass two writes and later 
deletes just one new intermediate file, PASIBF.TMP. 


When pass two is finished, a message like this 
appears on your screen: 


#O5EC (1516) 
#0056 ( 230) 
#0264 ( 612) 


Code Area Size 
Cons Area Size 
Data Area Size 


rou 


Pass two No Errors Detected. 
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The first three lines indicate: 


fo) Code: the amount of space taken up by 
executable code. 


fe) Cons: the amount of space taken up by 
constants. 


fe) Data: the amount of space taken up by 
variables. 


The amount of space is shown first in hexadecimal, 
then in decimal notation. The error message refers 
only to pass two -~ not the entire compilation. 


2.2.3 PASS THREE 
Start pass three by typing: 
A: PAS3 


PAS3.EXE does not prompt you for any input. It 
reads PASIBF.TMP and PASIBF.OID (the temporary files 
created during pass two). Because of your earlier 
response to the object listing pranpt, it writes the 
object code listing to the file DEMO.COD. 


When pass three is canplete, the two temporary files 
are deleted. If you choose not to run pass three, 
after requesting an object listing, delete the 
temporary files yourself to save space. 


Table 2-1 summarizes the files read and written by 
each compiler pass during this sample session. 


Wable 2-1: 


Files Used by the MS-FORTRAN Compiler 


PASS READS WRITES DELETES _ 
1 DEMO. FOR DEMO. LST 
PASIBF. SYM 
PAS IBF.BIN 
2 PASIBF.SYM DEMO. OBJ PASIBF. SYM 
PASIBF.BIN PASIBF.OID PASIBF.BIN 
PASIBE. TMP 
3 PASIBF.OID —DEMO.COD PAS IBF.OID 
PASIBE. TMP PASIBF. TMP 


See Chapter 3 for more information about filename 
conventions and responding to the compiler prompts. 
2.3 LINKING YOUR MS—FPORTRAN PROGRAM 

You are now ready to link your program. Linking 
converts the object file into an executable program 
by assigning absolute addresses and setting up calls 
to the run-time library. 
Start the linker by typing: 

A:LINK 
The linker displays a header and then displays four 
prompts. The pranpts ask you for the following 
information: 


1. The name of your relocatable object file(s). 


26 The name you want to give to the executable 
program. 


Se 


4. 


The name you want to give to the linker 
listing. 


The name of the run-time library. 


Each prompt is discussed briefly in the following 
paragraphs, and then in greater detail in Chapter 4. 
For camplete information on MS-LINK, see the 
Programmers Tool Kit, Volume II. 


l. 


The first prompt asks for the name of your 
relocatable object file (or files): 


Object Modules [.0BJ]: 


Like the compiler prompts, the linker prompts 
have default settings. This pramnpt indicates 
that .OBJ is the default extension for any 
file(s) you name here. Type B:DEMO, and the 
file B:DEMO.OBJ (created during compilation) is 
linked with FORTRAN.LIB during the linking 
process. If an object file does not have the 
extension .OBJ, you must give its file 
specification in full. 


The second prampt asks for the the name of the 
run file -- the file created by the linker 
containing your executable program: 


Run File [DEMO. EXE]: 
The default filename is taken fram your 
response to the first linker prompt; the .EXE 
extension identifies an executable file. Press 
Return to accept the default file name. 


The third prompt asks for the linker listing 
file (sometimes called the linker map): 


List File [NOL.MAP]: 
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The default for the list file is the NUL file; 
that is, no file at all. For now, press the 
Return key to accept the default. 


If, when linking your own programs you want to 
see the list file on the screen without writing 
it to a disk file, type CON in response to this 
prompt. To write the linker map to a disk 
file, respond to this prampt with a name for 
the file. 


4, The fourth linker prompt asks for the location 
of the run-time library: 


Libraries [.LIB]: 


To indicate that FORTRAN.LIB is on drive A, 
types 
A: 
After you respond to the four prompts, the linker 
links your compiled program (DEMO.OBJ) to the 
necessary modules in the MS-FORTRAN run-time Library 


(A:FORTRAN.LIB). This linking process creates an 
executable file named DEMO.EXE on the default drive. 


See Chapter 4 for details on linker files and 
responding to the linker prompts. MS-LINK: is 


2.4 EXECUTING YOUR MS-FORTRAN PROGRAM 


When linking is complete, the operating system 
prompt reappears on the screen. To run the sample 
program, just type: 


DEMO 


This tells MS-DOS to load the executable file 
DEMO. EXE, fix segment addresses to their absolute 
value (based on the address at which the file is 
loaded), and start running the program. 


If the program runs correctly, you are prampted to 
enter ten numbers, which are then sorted and 
displayed on your screen in sorted order, from 
lowest to highest. 


This ends the sample session. More information on 
canpiling and on linking is provided in Chapters 3 
and 4. The following listing is a log of the entire 
sample session, including pranpts, your responses 
(shown underlined), and comments on files written to 
disk (shown in brackets) 


A> B: 

B> A:FORL 

Source file [.FOR]: DEMO 

Object file ([DEMO.FOR]: <Returm 
Source listing [NUL.LST]: DEMO 
Object listing [NUL.COD]: DEMO 


{Source listing written as DEMO.LST] 


Pass one ° Wo errors detected. 


B> A:PAS3 
Code Area Size = @5BC ( 1516) 
Cons Area Size = @@F6 ( 236) 
Data Area Size = @264 ( 612) 


Pass two No Errors Detected. 
B> A:PAS3 

[Object listing display] 
B> A:LINK 


Object modules [.OBJ]: DEMO 
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Ran file [DEMO, 
List map [NUL.MAP]: <Returm 


Libraries [.LIB]: A: 


..EXE]: <Returm 


B> A:DEMO 


[Program prompting and display] 
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3. MORE ABOUT COMPILING 


This chapter gives procedural information on the 
compiler, to supplement Section 2.2. For a more 


technical discussion of the compiler, see Section 
8.1. 


3.1 FILES WRITTEN BY THE COMPILER 


Besides creating several intermediate files, the 
compiler writes one required file and two optional 
files that represent your program in various ways. 
The object file is the one permanent file. The 
source listing and object listing files are 
optional; you can display or print either (or both) 
of these files instead of writing them to a disk 
file. 


3.1.1 OBJECT FILE 


The object file is written to disk after compiler 
pass two is finished. The object file isa 
relocatable module, that contains relative rather 
than absolute addresses. It usually has the .OBJ 
extension. The object module must be linked with the 
MS-FORTRAN run-time library to create an executable 
module containing absolute addresses. 


3.1.2 SOURCE LISTING FILE 


The source listing file is a line-by-line account of 
the source file(s); it includes page headings and 
messages. Each line is preceded by a number that is 
referenced by any error messages that occur as a 
result of that source line. 

Any canpiler error messages that appear in the 
source listing are also displayed on your screen. 
See Appendix A in the MS~FORTRAN Reference Manual 
for a complete list of error messages. 
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If you use the SINCLUDE metacommand to include files 
in the compilation, these files are also shown in 
the source listing. (For information on the 
SINCLUDE metacommand, see Section 6.2 of the MS- 
FORTRAN Reference Manual.) 


The flags, level numbers, error message indicators, 
and symbol tables in the source listing make it 
useful for error checking and debugging. Many 
programmers use a printout of the source listing 
file rather than the source file itself as a working 
copy of the program. 


3.1.3 OBJECT LISTING FILE 


The object listing file is a symbolic, assenbler- 
like listing of the object code that lists addresses 
relative to the start of the program or module. 
Absolute addresses are not determined until the 
object file is linked with the run-time library. 


The object listing file can be a useful tool during 
program development because: 


) you can look at it simply to familiarize 
yourself with the code that the conpiler 
generates. 


o) you can check to see if a different construct 
or assembly language would improve program 
efficiency. 


‘) you can use it aS a guide when debugging your 
program with the MS-DEBUG. 


3.1.4 INTERMEDIATE FILES 


Pass one creates two intermediate files (PASIBF.SYM 
and PASIBF.BIN) which contain information from your 
source file for use in creating the object file 
during pass two. These two intermediate files are 
always written to the default drive. 


Pass two reads and then deletes PASIBE.SYM and 
PASIBF.BIN. Pass two also creates one or two new 
intermediate files, depending on whether you request 
an object listing. If, as for the sample session, 
you plan to run pass three to produce the object 
listing, pass two writes the two intermediate files 
PASIBF.TMP and PASIBF.OID If you do not request an 
object listing in pass one, pass two writes and then 
deletes only one new intermediate file (PASIBF.TMP). 


PAS2.EXE assumes that the intermediate files created 
in pass one are on the default drive. If you have 
switched disks so that they are on another drive, 
you must indicate their location in the command that 
starts pass two. For example: 


AsPAS2 A/P 


The "A" immediately after the command tells the 
canpiler that PASIBE.BIN and PASIBF.SYM are on drive 
A, instead of the default drive B. The "/P" tells 
the campiler to pause before continuing so that you 


_ can insert the disk that contains them into drive 


After pausing, pass two prompts as follows: 
Press enter key to begin pass two. 


After you insert the new disk in drive A, press the 
Return key and the compiler proceeds with pass two. 
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PASTBF.TMP and PASIBF.OID are deleted from the 
default drive during pass three. If you change your 
mind and decide not to run pass three, be sure you 


delete these files to recover the space on your 
disk. 


3.2 FILENAME CONVENTIONS 


When you start the canpiler, it prompts you for the 
names of four files: your source file, the object 
file, the source listing file, and the object 
listing file. You must supply only one of these 
names: the source filename. 


This section tells how the compiler constructs the 
remaining file names from the source filename, and 
how you can override the default settings. 


A complete MS-DOS file specification has three 
parts: 


ce) Device name: The disk drive where the file is 
located. If you do not specify a device, the 
compiler assumes the logged drive. 


fe) File name: The name you give to a file. See 
the MS-DOS section in the Operator's Reference 
Guide for any limitations on assigning 
filenames. 


fe) File extension: An addition to the filename 
that further identifies the file. The 
extension is up to three alphanumeric 
characters preceded by a period. Although you 
can give any extension to a filename, the 
MSFORTRAN canpiler and MS-LINK recognize and 
assign certain extensions by default, as shown 
in Table 3-L 


fable 3-1: Default File name Extensions 


EXTENS ION FUNCTION OF FILE 
-FOR MS-FORTRAN source file 
e PAS MS-Pascal source file 
- OBJ Relocatable object file 
. LST Source listing file 
«COD Object listing file 
eASM Assembler source file 
»MAP Linker map file 
-LIB Library file 
. EXE Executable run file 


Tf you do not use a default extension, you must give 
the extension as part of the filename when 
responding to a prompt. If you do not specify an 
extension, the MS~FORTRAN compiler supplies one of 
those shown in Table 3-2. 


Table 3~2 also shows the default file specifications 
supplied by the canpiler if you give a name for the 
source file and then press the Return key in 
response to each of the remaining campiler prompts. 


Table 3-2: Compiler-Assigned Default File 
Specifications 


FILE DEVICE EXTENSION FULL FILE SPEC 


Source file dev: FOR dev:filename.FOR 
Object file dev: - OBJ dev: filename. OBJ 
Source listing dev: LST dev :NUL.LST 
Object listing dev: COD dev :NUL.COD 


The device “dev:" is the logged drive. Even if you 
specify a device with the source filename, the 
remaining file specifications default to the logged 
drive. You must specify the name of another drive 
if you do not want a file to go to the default 
drive. 


The NUL file is equivalent to creating no file at 
all; the compiler creates neither a source listing 
file nor an object listing file. If (in response to 
either of the last two prompts) you enter any part 
of a file specification, the remaining parts default 
as follows: 


) Source listing -- dev:filename.LST 
fo) Object listing -- dev: filename.CoD 


If you specify a non-null file for the object 
listing, pass two leaves PASIBF.TMP and PASIBF.OID 
(the input files for pass three) on your work disk 
until you delete them or run pass three. 


The general rules for filenames are; 


l. All lowercase letters in filenames are changed 
into uppercase letters. The following names 
are all equivalent to ABCDE.FGH: 


abcde. fgh AbCdE.FgH ABCDE. fgh 


26 To enter a filename that has no extension, type 
the name followed by a period. For example, 
typing ABC in response to the source filename 
prompt gives a filename of ABC.FOR. Typing 
ABC. tells the compiler to use ABC (with no 
extension) as the name. 


3 The filename itself cannot contain spaces, but 
leading and trailing spaces are allowed. The 
following is an acceptable response to the 
source file prompt: 


ABC 4 


The use of the semicolon is explained in rule 
6. 


You can override default by typing all or part 
of the name instead of pressing the Return key. 
If the logged drive is B and you want the 

object file to be written to the disk in drive 
A, type A in response to the following prompt: 


Object Filename [ABC.OBJ]: 
This creates an object file called A:ABC.OBJ. 


Listing files default to null. If you specify 
any part of a legal filename, however, the 
canpiler creates a filename using the same 
default rules that apply to the source and 
object files. If you give a drive or 
extension, for example, the base name used is 
the base name of the source file. Typing B: in 
response to the object listing Sree gives a 
filename of B:ABC.COD. 


A semicolon entered after the source filename 
or in response to any later prampt tells the 
compiler to assign default filenames to all 
remaining files. This entry is the quickest 
way to start the compiler if you don't need 
either of the listing files. For example, 
typing ABC and a semicolon in response to the 
source file pranpt eliminates the remaining 
prompts and results in these filenames: 


Source file ~~ BsABC.FOR 
Object file --  BsABC.OBJ 
Source listing -- B:NUL.LST 
Object listing -~ B:NUL.COD 


You cannot enter a semicolon to specify a 
source file because the source file has no 
default filename. 
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ee To send either listing file to (the screen), 
use one of the special filenames USER or CON. 
USER is recognized only by MS-FORTRAN (and MS- 
Pascal) and writes the file to the screen 
immediately as the listing is created. CON is 
recognized by all MS-DOS programs, but saves 
the keyboard output and writes it in chunks. 


3.3 STARTING THE COMPILER 


There are three ways to start the MS-FORTRAN compiler 


O You can let the campiler prompt you for each of 
the four filenames (as in the sample session). 


fe) You can give all four filenames on the command 
line. This method is useful when using a batch 
command file (see Chapter 5). 


e) You can give some of the filenames on the 


command line and let the compiler prampt you 
for the others. 


Each method is discussed in the following sections. 


3.3.1 NO PARAMETERS ON THE COMMAND LINE 


To start the compiler without giving any parameters 
(filenames) on the comand line, type the following: 


A:FORL 


As in the sample session, the compiler prompts you 
for each of the four filenames it needs. A typical 


session looks like this (your responses are 
underlined): 


Source filename [.FOR]: MYFILE 
Object filename [MYFILE.OBJ]: <RETURN> 
Source listing [NUL.LST]: MYFILE 


Object listing [NUL.COD]: <RETURN> 


These responses give you an object file called 
B:MYFILE.OBJ, a source listing file called 
B:MYFILE.LST, and no object listing file. 


Remember, pressing the Return key accepts the 
default shown in brackets. Giving any part of a 
file specification creates a file under the same 
default rules that apply to other files. 


3.3.2 ALL PARAMETERS ON THE COMMAND LINE 


Instead of letting the compiler prompt you for the 
four required filenames, you can implicitly or 
explicitly give all four names on the command line 
used to start the compiler. This method eliminates 
the pranpts and is useful when you are using the 
MS-DOS batch file facility. See Chapter 5 for 
information on creating a batch command file for use 
with the compiler. 


The general form of the command line that includes 
all of the compiler parameters is: 


AsFOR1 <source>,<object> ,<sourcelist>, 
<objectlist>; 


The same default naming conventions apply here as 
when the filenames are proanpted for. 


You must separate each filename with a comma; spaces 
are optional. Put a semicolon at the end of the 
line to indicate that you do not want additional 
prompting. 


If you omit a filename after a comma, the file by 
default is given the same filename as the source, 
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Sion. 
alent: 


A:POR]L DATABASE , DATABASE , DATABASE , DATABASE ; 
AsFORL DATABASE, » 57 


Both result in the following four filenames being 
assigned: 


Source file ~~ A:DATABASE.FOR 
Object file -- A:DATABASE. OBJ 
Source listing -- A:DATABASE.LST 
Object listing -- A:DATABASE.COD 


If you want the normal defaults, with null listing 
files, include a semicolon (;) after the source 
filename. Thus, these command lines are equivalent: 


A:FORL YOYO, YOYO,NUL,NUL; 
AsFOR1 YOYO; 


3.3.3 SOME PARAMETERS ON THE COMMAND LINE 


You can also start the compiler by giving one or 
more of the required filenames on the command line 
and letting the conpiler prompt you for the rest. 
This feature of the compiler makes it relatively 
failsafe to use. 


For example, you can give the names of only the 
source file and the object file on the command line. 
The compiler prompts you for the names of the source 
listing and the object listing (your responses are 
underlined) : 


B> A:FOR] TEST, TEST 
Source listing [NUL.COD]: 
Object listing [NUL.COD]: <R 


This sequence of responses results in the following 


filenames: 

Source file -~ B:TEST.FOR 
Object file -- BsTEST.OBJ 
Source listing -- B:TEST.LST 
Object listing -- B:NUL.COD 


4, MORE ABOUT LINKING 


4.1 FILES READ BY THE LINKER 


A successful MS-FORTRAN compilation produces a 
relocatable object file. Linking (the next step in 
program development) is the process of converting 
one or more relocatable object files into an 
executable program. 


4.1.1 OBJECT MODULES 
Object files come from any of the following sources: 


fe) MS~FORTRAN canpilands (programs, subroutines, 
or functions). 


) MS—Pascal compilands (programs, madules, or 
units). 
re) User code in other high-level languages. 


fe) Assembly language routines. 


fo) Routines in standard run-time modules that 
support facilities such as error handling, heap 
variable allocation, or input/output. 


It's easy to use the MS-FORTRAN Campiler with MS- 
Pascal or other high-level language routines. All 
procedures referenced in an MS-FORTRAN routine and 
not defined in the same program unit are 
automatically considered external. No additional 
EXTERNAL declarations are required. (For 
information on how to specify public routines in 
another language, see the appropriate reference and 
user manuals.) 


Calling conventions and function returns can differ 
between MS-FORTRAN and other languages (see Chapter 
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7). You may need to write assembly language 
routines to interface between MS-FORTRAN and other 
languages, Whatever the language, it must be able 
to produce compilable object modules. For 
information on linking assembly language routines, 
see Chapter 7. 


Linking programs and subroutines of MS-FORTRAN 
source code, aS well as assenbly language and 
library routines, lets you develop a program 
incrementally. Separate canpilation and linking of 
separate parts of a program not only reduces the 
need to continually recompile the program, but it 
also lets you create programs that contain more than 
64K bytes of code (see Chapter 6). 


For now, assume that you have created a program that 
uses one MS-FORTRAN main program and one subroutine, 
and that also contains two assembly language 
external procedures. Assume that these files have 
already been compiled or, in the case of the 
assembly language routines, already assembled. The 
files created are the following: 


At the first linker prompt, enter the names of the 
object files, separated by plus signs: 


PROG+SUBR+ASM1+ASM2 


The first object file listed must be an MS-FORTRAN 
object file, although it need not be the main 
program. Do not put an assembly language module 
first; doing this can result in segments being 
misordered. After the initial MS—-FORTRAN object 
file, you can list the other subroutines or assembly 
language routines in any order. 


Typing a semicolon after the name of the last object 
file you want to link tells the linker to skip the 
remaining prompts and to supply defaults for all 
remaining parameters. Refer to Table 4-1. 


Table 4—l: Linker Defaults 


PROMPT DEFAULT RESPONSE 
Object Modules None 
Run File Prog .EXE 
List Map NUL.MAP 
Libraries FORTRAN. LIB 


4.1.2 LIBRARIES 


A run-time library contains run-time modules 
required during linking to resolve references made 
during compilation. The MS~FORTRAN compiler 
generates instruction space for most floating-point 
operations. It also gives fix-up information in the 
object file. During linking, these instructions use 
information in the run-time library. 


Because MS~FORTRAN is designed for use on machines 

with or without an 8887 co-processor, the compiler 

has two versions of the run-time library: 

fe) If you use the library FORTRAN.L87 (renamed 
FORTRAN.LIB) to link the prog the space 
assigned by the compiler becomes instructions 
for the 8887 co-processor. The program runs 
correctly only with an 8987 co—processor. 


ro) Tf you use the library FORTRAN.LEM (renamed 
FORTRAN.LIB) to link your program, the 
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instructions are transformed into emulator 
interrupts. These are serviced by code 
automatically linked in with your program. 
(This code is also in FORTRAN. LEM.) 


Because FORTRAN.LIB is the only library searched 
automatically at link time, you must copy or rename 
the library you decide to use (FORTRAN. LEM or 
FORTRAN.L87) to FORTRAN.LIB. Copying or renaming is 
the only way you can automatically use the real 
number support provided by your processor. You can 
specify additional libraries to be searched (see the 
Programmer's Tool Kit, Volume II for information). 


If you press the Return after the final linker 
prompt, the linker automatically searches for 
FORTRAN.LIB on the default drive. If FORTRAN.LIB is 
not on the default drive, the following message 


appears: 


Cannot find library FORTRAN.LIB 
Enter new drive letter: 


Switch disks if necessary, and then type the name of 
the drive that contains FORTRAN.LIB. 


If you press Return instead of entering a drive 
name, linking proceeds without a library search. 
You can get the same effect by using the linker 
option switch -~ /NO (short for 
/NODEFAULTLIBRARYSEARCH) ~~ to override the 
automatic search for FORTRAN.LIB. This switch 
produces unresolved reference error messages unless 
you replace each required run-time routine with a 
routine of your own. (Most MS-FORTRAN programmers 
never use this capability.) 

To tell the linker to search libraries other than 
FORTRAN.LIB (for example, PASCAL.LIB), give the 
library names (separated by plus signs) in response 
to the Libraries prompt. See the Programmer's Tool 
Kit, Volume II for complete information on using 
different libraries with MS-LINK. 


4.2 FILES WRITTEN BY THE LINKER 


The main output of the linking process is an 
executable run file. You can also request a linker 
map (or listing file) which serves much the same 
purpose as the compiler listing files. The linker 
can also write (amd later delete) one temporary 
file. 


4.2.1 THE RUN FILE 


The run file produced by the linker is your 
executable program. The default filename, given in 
brackets as part of the prompt, is taken from the 
name of the first module listed in response to the 
first prompt. To accept this default, press the 
Return key. To specify another run filename, type 
in the name you want. All run files receive the 
extension .EXE, even if you specify a different 
extension. 


The linker normally saves the run file on the disk 
in the default drive. To specify another drive (as 
when working with a large program), type a drive 
name in response to the run file prampt. 


4.2.2 THE LINKER LISTING FILE 


The linker map is also called the linker listing 
file. It shows the addresses for every code or data 
segment in your program relative to the start of the 
run module. If you use the /MAP switch, the linker 
map also includes all EXTERN and PUBLIC variables 
(see Section 4.3). 


The linker map defaults to the null file, unless you 


specifically request that the map be printed, 
displayed on the screen, or saved on disk. In the 
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early stages of program development, you may want to 
inspect the linker map in these two instances: 


re) When using the debugger to set breakpoints and 
locate routines and variables. 


o) To find out why a load module is so large (What 
routines are loaded? How big are they? What's 
in them?) . 


The default for the linker map is the NUL file; that 
is, no file at all. Press Return to accept this 
default. If you want to see the linker map without 
writing it to a disk file, type CON in response to 
the list file prompt. If you want the file written 
to disk, give a device or filename. 


4.2.3 VM.TMP 


Linking begins after you respond to all the linker 
prampts. If the linker needs more memory space than 
is available, it creates a file called VM.IMP on the 
disk in the default drive, and displays this 
message: 


VM.TMP has been created. 
Do not change disk in drive B:. 


The linker aborts if the additional space is used up 
or if you remove the disk that contains VM. TMP 
before linking is complete. 


When the linker finishes, VM.TMP is erased from the 
disk, and any errors that occurred during linking 
are displayed. For a list of MS-LINK error 
messages, see Appendix F. 


If the linker aborts, use the MS-DOS DIR command to 
check the contents of your disk to see whether 
VM. IMP has been deleted. Then, use the CHKDSK 
program to reclaim any available space fram unclosed 
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files. CHKDISK also tells you the amount of 
available space on the disk. 


4.3 LINKER SWITCHES 


You can give one or more linker switches after any 
of the linker pranpts. Table 4-2 illustrates the 
linker switches you can use with MS-FORTRAN. See 
the Programmer's Tool Kit, Volume II for more 
information on linker switches. 


Table 4—2: MS-LINK Switches 


NAME ACTION 


/DSALLOCATE: Loads data at the high end of the 
data segment. With MS—-FORTRAN and 
MS—Pascal programs, this switch is 
required, and is automatically 
supplied by the compiler. 


/LINENUMBERS: Includes source listing line numbers 
and associated addresses in the 
linker listing. This lets you 
correlate machine addresses with 
source lines when debugging. This 
correlation is also available on the 
object listing. 


/MAP: Includes all EXTERN and PUBLIC 
variables in the linker list file. 

/NO3 Tells the linker to not automatically 
search FORTRAN.LIB. (Short for 
NODEFAULTLIBRARYSEARCH, ) 


/PAUSE: Tells MS-LINK to display this 
message: 


About to generate .EXE file 
Change disks <press Returm 


You can then change disks before the linker 
continues. The /PAUSE switch is useful for linking 
large programs, Since it lets you switch disks 
before writing the run file. If a VM.TMP file 


exists, however, you must not switch the disk in the 
default drive. 
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NOTE: Do not use either of the additional linker 
switches /HIGH or /STACK with MS-FORTRAN or MS=— 
Pascal programs. 
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5. USING A BATCH COMMAND FILE 


The MS-DOS batch file facility lets you create a 
batch file for executing a series of commands. This 
facility is described fully in the MS-DOS Section of 
the Operator's Reference Guide. This chapter gives 
a brief description of command files in the context 
of compiling, linking, and running an MS-—FORTRAN 
program. 


A batch command file is a text file of MS-DOS 
commands. If a batch file is open when MS-DOS is 
ready to process a command, the next line in the 
file becomes the command line. After all batch 
command lines are processed, or if batch processing 
is otherwise temminated, MS-DOS goes back to reading 
command lines from the keyboard. 


Batch file lines cannot be read by the compiler, the 
linker, or a user program. Therefore, you cannot put 
responses to filename or other pranpts in a batch 
file. All compiler parameters must be given on the 
command line, as described in Section 3.3.2. 


The batch file can contain dummy parameters that you 
replace with actual parameters when you invoke it. 
The symbol %1 refers to the first parameter on the 
line, %2 to the second parameter, and so on. The 
limit is $9. A batch command file must have the 
extension .BAT and should be kept on either the 
program disk or the utility disk. 


If your command file contains the PAUSE cammand, 
followed by the text of a prompt, the operating 
system pauses, displays the prampt you have defined 
and waits for further input before continuing. 


If you are making minor changes to a program you 
have already debugged, you can speed up compilation 
by creating a batch file that issues the campile, 
link, and run commands. For example, use the line 
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editor in MS-DOS to create the following batch file, 
COLIGO.BAT (for “canpile, link, and go"): 


AsFORL Sloe} 
PAUSE ...lf no errors, do PAS2 
Az PAS2 
A:LINK $13 
Bl 
To execute this file, type: 
COLIGO DEMO 


where: DEMO is the name of the source program you 
want to compile, link, and run. 


Program execution proceeds as follows: 


1. The first line of the batch file runs pass one 
of the compiler. 


2. The second line generates a pause and prompts 
you to start pass two. 


3. The third line runs pass two. 

4, The fourth line links the object file. 

5. The fifth line runs the executable file. 

A .BAT file is only executed if there is neither a 
«COM file nor .EXE file with the same name. Thus, if 


you keep your source file and .BAT file on the same 
disk, give them different filenames. 


6. COMPILING AND LINKING LARGE PROGRAMS 


At times, a large progran exceeds the size of 
program that the compiler, the linker, or your 
machine can handle. ‘his chapter describes sone 
ways to avoid or work within such Limits. 


6.1 AVOIDING LIMITS ON CODE SIZE 


The MS-FORTRAN compiler can generate up to 64k bytes 
of object code at once. This limit applies only to 
generated code; data size limits are discussed in 
the following section. Since you can canpile any 
number of compilands separately and link them 
together later, the limit on program size is really 
the amount of main memory available. For example, 
you can separately compile six different compilands 
of 50k bytes each. Linking them produces a program 
with a total of 300k bytes of code. 


In practice, a source file large enough to generate 
64k bytes of code would be thousands of lines long 
and unwieldy both to edit and to maintain. It's 
better to break a large program into subroutines and 
functions, and compile them separately in logical 
groups. Separate compilation does not affect final 
size, but it can increase the total sige of 

object files. 


6&2 AVOIDING LIMITS ON DATA SIZE 
Overall program limits for data are as follows: 


ls 64K for all “local” variables, constants, blank 
common blocks, the stack, and the heap. The 
heap is used for dynamically allocated files 
(634 bytes per file) and for some entry and 
exit information (if the SDEBUG metaconmand is 
on). The stack contains arguments, return 
addresses, and certain temporary variables. 
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This data will reside in one segment, the 
default data segment (DS register). 


26 64K bytes for each named COMMON block. Each 
named common block will be allocated a separate 
segment. There are no additional limits for 
data for separate compilations. References to 
data in named COMMON blocks are usually less 
efficient than references to other data. 


6.3 WORKING WITH LIMITS ON COMPILE TIME MEMORY 


During compilation, large programs are most often 
limited in the number of identifiers in any one 
source file. They are occasionally limited by the 
complexity of the program itself. If one of these 
limits is reached, you will see the following error 
message: 


Compiler Out Of Memory 
There is no particular limit on number of bytes in a 


source file. The number of lines is limited to 
32767, but in practice, any source file this big 


will run into other limits first. | 

6.3.1 IDENTIFIERS 

Pass one of the can handle a maximum of around 1000 
identifiers, assuming your memory is big enough to 
provide a full data segment of 64K. In MS-FORTRAN, 
identifer entries are created for the following 
objects: 


Le The program 


2. Subroutines and functions declared in the 
progran unit 


36 Subroutines and functions referenced in the 
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program unit 
4, COMMON blocks 
5. Common variables 
6. Statement functions 
7. Formal parameters 
8. Local variables 


Identifiers of the last four objects are required 
only while the subroutine or function that contains 
them is being compiled. These identifiers are 
discarded at the end of the subroutine; the space 
they occupied is made available for other 
identifers. 


Thus, you can create much bigger programs by 
splitting up your code into more subroutines and 
functions. This practice allows the "local" 
identifier space to be shared. You can go even 
further by putting the subroutines and functions in 
files or their own and compiling them separately. 
This procedure usually reduces the number of 
identifiers in groups being used per compiland. 


Remember that you may have to create data items in 
common to communicate between the new procedures, or 
write communication subroutines. If you have to do 
either, however, it can defeat the purpose of 
breaking up the program in the first place. 


6.3.2 COMPLEX EXPRESSIONS 


You can also run out of memory in pass one if you 
have any of the following: 


di A very complex statement or expression (i.e., 
one that is very deeply nested). 
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26 A large number of error messages. 


3. A very large block of specification statements, 
EQUIVALENCE statements in particular. 


If a program gets through pass one without running 
out of memory, it usually gets. through pass two. 
The major exception occurs with complex basic 
blocks, as in either of the fol lowing: 


l. Sequences of statements with no labels or other 
breaks. 


2.6 Sequences of statements containing very long 
expressions or parameter lists (especially with 
I/O statements). 


Also, pass two uses symbol table entries for groups 
1 through 4 in Section 6.3.2, Unlike pass one, pass 
two also creates entries for many of the 
transcendental functions that are called by a 
program. However, these are limited in number. In 
any case, pass two makes fewer symbol table entries 
than pass one. 


If pass two runs out of memory, it displays the 
message: 


Compiler Out Of Memory 


The error message gives a line number reference. If 
there is a particularly long expression or parameter 
list near this line, break it up by assigning parts 
of the expression to local variables (or by using 
multiple WRITE calls). If this does not work, add 
labels to statements to break the basic block. 
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6.4 WORKING WITH LIMITS ON DISK MEMORY 


Another type of limit you may encounter is in the 
number of disk drives on your computer or the 
maximum file size on one disk. As with other 
limits, there are several possible solutions. The 
simplest method of avoiding these limits is to first 
load a compiler pass, then switch disks and run the 
pass. 


6.4.1 PASS ONE 


For FORI.EXE, just type FOR] (or dev:FOR1 if 
necessary) to load pass one. When the "Source File" 
prompt appears, remove the disk containing FOR]. 
Then, insert your source file in the non-default 
drive. Since the intermediate files are always 
written to the default drive, you need to give a 
drive letter for your source file. Typicallya 
source listing file goes on the same drive as the 
source. 


If your source file does not fit on one disk, you 
can break it into pieces and use the SINCLUDE 
metacommand to compile the pieces as a group. These 
SINCLUDEG files can be typed at the keyboard if you 
give USER as the name of your source file and type 
your SINCLUDE metacomnands directly, one per line. 
You need to type an ALT~Z (end of file) to end the 
campilation. 


If your source file will not fit on one disk, you 
can break it into pieces and use the SINCLUDE 
metacommand to compile the pieces as a group. 


Another way to control a large listing file is by 
including the SNOLIST metacommand at the beginning 
of your source file. Then, use the SLIST and 
SNOLIST metacomnands to bracket only those portions 
of the source for which a source listing is 
required. In particular, you may want to exclude 
SINCLUDEG files when compiling subprograms. 


6.4.2 PASS ‘TWO 


Two command line parameters available with PAS2 can 
help you with disk limitations. 


ds You can indicate the drive letter on which your 
input intermediate files, PASIBF.SYM and 
PASIBF.BIN, can be found. 


2. The /P switch tells PAS2 to pause while you 
remove the disk containing PAS2,EXE and insert 
some other disk. 


If you run out of disk memory when executing PAS2, 
you need to have the input intermediate file” 
PASIBF.SYN and PASIBF.BIN on one drive and the 
intermediate file PASIBF.TMP (and PASIBF.OID if you 
are making an object listing file) on the other 
drive. (The PASIBF.TMP file and the PASIBF.OID file 
used in pass three are always written to the default 
drive.) 


Give PAS2 a drive letter tha specifies the drive 
containing the PASIBF.SYM and PASIBF.BIN files (for 
example, PAS2 B). Normally you also need the pause 
command (for example, PAS2 B/P). PAS2 responds with 
a message like this: 

PASTBF.SYM and PASIBF.BIN are on Bs: 
This message is followed by the pause prompt: 


Press enter key to begin pass two. 
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When you run PAS2 with the PASIBF files on two 
disks, the object file should go on the same disk as 
PASIBF.TMP (and PASIBF.OID); that is, in the default 
drive. If it doesn't quite fit (and you are making 
an object listing file) you can compile your program 
twice -- once without the object listing but with 
the object file itself, and once with an object 
listing but using NUL as the object file. 


6.4.3 LINKING 


If you are making a large program with small disks 
(or only one disk drive), you may run into similar 
problems when you link your program. Since you can 
split your program into pieces and canpile then 
separately, but you must link the entire program at 
one time, you may run into disk limitations in the 
linker but not the compiler. 


The linker will prampt you for any object files 
and/or libraries it cannot find, so you can put in 
the correct disk and continue linking. Also, the 
/PAUSE switch makes the linker wait after linking 
but before writing the run (.EXE) file, letting you 
create a run file that fills an entire diskette. 
Creating the virtual file VM.TMP and the link map, 
however, Limits the amount of disk swapping you can 
do. 


Unless all object files, libraries, and the run file 
will fit on one disk, you must not write the 

linker listing to a disk file. Instead, send the 
linker map to NUL, CON, or directly to your printer. 
Since the map is written at various points in the 
Link process, you cannot swap the disk that gets the 
map. 


The linker prompts you when it needs an object file, 


a library file, or is about to write the run file; 
exchange disks as necessary when this happens. If 
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the linker gives a message that it is creating 
VM.TMP, its virtual memory file, you cannot switch 
disks anymore, so you may not be able to link 
without more memory or a second disk drive. 


You can devote one drive (the default) to the VM.TMP 
file (and the link map, if you want one). Use the 
other drive for your object files, libraries, and 
run file (using the /PAUSE switch). With this 
method you can link very large programs. 


The Linker makes two passes through the object files 
and libraries: one to build a symbol table and 
allocate memory, and one to actually build the run 
file. This means you will insert a disk containing 
object files or libraries twice, and finally insert 
the disk receiving your run file. 


6.4.4 A COMPLEX EXAMPLE 


The following example shows how to compile and link 
a very large program. The example assumes you don't 
want any listing files. 


1. Pass One 


a. Log on to drive B and insert an empty disk 
in B. 

b. Insert the disk containing FORI.EXE in A, 
type A:FOR], wait for Source File pranpt. 

c. Remove the disk containing FOR] from A and 
insert the disk containing the source file 
LARGE. PAS. 


d. Respond to the prompt with 
A:sLARGE,A: LARGE; and wait for FOR1 to run. 


Ze Pass Two 


a. Log on to drive A, Remove source disk 
from A. 
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b. Insert the disk containing PAS2.EXE in A, 
type PAS2 B/P and wait for the PAS2 
prompt. 

c. Remove the disk containing PAS2 from A, 
insert an enpty disk (to which the object 
file will be written). 

d. Respond to the prompt by pressing the 
Return key and wait for PAS2 to run. 

e. Remove the disk containing the object file 
from A. 


3. Linking 


a. Log on to drive B (which contains a now- 
empty disk). 

b. Insert LINK.EXE in A; type A:LINK and 
wait for Object Modules prampt. 

c. Remove the disk containing LINK.EXE from A 
and insert the disk containing the object 
file(s). 

d. Respond to the prompt by typing "A:LARGE 
(plus any other object files). 

e. Respond to the Run File prompt by typing 
LARGE/PAUSE. 

f. Respond to the List File prompt by pressing 
the Return key, or type B:LARGE to get a 
linker map. 

cr Respond to the Libraries prompt by 
pressing the Return key or with a library 
name (the library must be on A). 

h. Wait for the linker to run, swapping the A 
disk after prompts as necessary. 


6.5 MINIMIZING LOAD MODULE SIZE 
Some load modules can be reduced in size by 
eliminating run-time modules your program doesn't 
use. Reductions can be made in several areas: 


de 1/0 
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2. Run-time error messages 
3. Real number operations 


4. Debugging 


6.5.1 I/f0 


Because most MS-FORTRAN programs perform I/O, they 
require linking to the MS-FORTRAN file system in the 
run-time library. Some programs, however, do not 
perform I/O and others perform I/O by directly 
calling MS-FORTRAN's "Unit U" file routines or 
calling operating system I/O routines. (For more 
information on Unit U, see Section 8.2.) 


Nonetheless, all programs include calls to INIVQQ 
and ENDYQQ, the procedures that initialize and 
terminate the file systen. These calls increase the 
size of the load module by linking and loading 
routines that may never be used. 


If a program doesn't need the file system routines, 
you can eliminate unnecessary file support by 
declaring dummy INIVQQ and ENDYQQ subroutines in 
your program, as follows: 


SUBROUTINE INIVOO 
END 


SUBROUTINE ENDYOO 
END 


The linker loads the Unit U procedures needed to 
access the terminal (INIUQQ, ENDUQQ, PIYUQQ, PLYUQQ, 
and GTYUQQ), so that it can write any run-time error 
messages. 


If you do include the dummy subroutines, however, 


and the Linker produces any error messages for 
global names that end with the "VOQ" or "UQQ" 
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suffix, your program requires the file system. If 
your program doesn't need the I/O-handling 
procedures called by Unit U, you can use the dumny 
file NULF.OBJ instead. NULF.OBJ contains the dumny 
subroutines for INIVQQ and ENDYQQ, as well as 
dummies for INIUQQ and ENDUQO. 


6.5.2 RUNTIME ERROR HANDLING 


If you don't need run-time error handling, the load 
module can be further reduced in size by 
eliminating the error message module and replacing 
it with the null object module (NULE6.O0BJ.). 
NULE6.0BJ terminates a program if an error occurs. 


INUXQO (the unit initialization helper) also resides 
in the error unit. If you want to replace error 
handling with NULE6, you must do any unit 
initialization yourself and remove the BEGIN from 
all the interfaces in your source program. 


6.5.3 REAL NUMBER OPERATIONS 


If an MS-FORTRAN program does no real number 
operations, it doesn't need the modules that 
initialize and terminate the real-number support 
system, INIX87 and ENDX87. The dummy object module 
NULR7.OBJ provides dummy routines for these two 


/ modules. 


6.5.4 DEBUGGING 


/ Compiling and linking a program with the SDEBUG 
metacommand may generate up to 48% more code than 
with SNODEBUG. After a program has been 
successfully campiled, linked, and run, remove the 
SDEBUG from your source file and repeat the entire 
process to create a program that runs considerably 
faster. 
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7. USING ASSEMBLY LANGUAGE ROUTINES 


This chapter first describes the MS-FORTRAN calling 
conventions and internal representations of data 
types, and then shows you how to interface 8086 
assembly language routines to MS-FORTRAN programs. 
The information in this chapter is not needed for 
most MS-FORTRAN programs; it is intended for the 
experienced programmer who is familiar with the 
following material: 


co) The EXTERNAL statenent 
fo) Subroutine and function arguments 


fe) MACRO-86 Macro Assembler 


7.1 CALLING CONVENTIONS 


At run-time, each active subroutine or function has 
a "frame" allocated on the stack. The frame 
contains the data shown in Figure 7-1. 


Figure 7-1: Contents of the Frame 
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The framepointer points at the saved caller 
framepointer and is used to access frame data. A 
statement function nested within another subroutine 
or function has an upper framepointer, so that it 
can access variables in the enclosing frame. 


The following takes place during a procedure or 
function call: 


ee The caller saves any registers it needs (except 
the framepointer). 


ae The caller pushes parameters in the same order 
as they are declared in the source and then 
does the call. 


3s The called routine pushes the old framepointer, 
sets up its new framepointer, and allocates any 
other stack locations needed. 


To return to the calling routine, the called routine 
restores the caller's framepointer, releases the 
entire frame, and returns. Not all of these steps 
are required in an assembly language routine. You 
must ensure only that the framepointer is not 
modified and that the entire frame (including all 
parameters) is popped off the stack before 
returning. For more information on the assembly 
language interface, see Section 7.3. 


Functions always return their value in registers. 
For REAL*4 and REAL*8, the caller allocates a frame 
temporary for the result and passes the address to 
the function like a parameter. When the called 
routine returns, it puts the address back in the 
normal return register. 


In MS-FORTRAN, all such subroutines and functions 
are PUBLIC or EXTERN. All calls to subroutines or 
functions are long calls (have 4-byte addresses). 
All calls to statement functions are short calls 
(have 2-byte addresses) . 


The called routine must.save the BP register, which 
contains the MS-FORTRAN framepointer as well as th 
DS segment register. The SS register is used by 
‘interrupt routines (both user-declared and 8087 
support) to locate the default data segment; it must 
not be changed (at least, if interrupts are 
enabled). Other registers (AX, BX, CX, DX, SI, DI, 
and ES) need not be saved. 


Functions return a l-byte value in AL, a 2-byte 
value in AX, and a 4—byte value in DX:AX (high 
part:low part, or segment:offset). 
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7.2 INTERNAL REPRESENTATIONS OF DATA TYPES 


Programmers who use both MS~FORTRAN and MS~Pascal 
should pay particular attention to data type and 
parameter passing differences when passing data 
between the two languages. For internal representa- 
tions of MS-Pascal data types, see the MS—Pascal 
User's Guide. 


INTEGER 


INTEGER*2 values are 16-bit two's complement 
numbers; INTEGER*4 values are 32—bit two's 
complement numbers. 


REAL (REAL*4) and DOUBLE PRECISION (REAL*8) 


Reals are IEEE 4~byte real numbers. They have a 
sign bit, an 8~bit excess 127 binary exponent, and a 
24-bit mantissa. The mantissa represents a number 
between 1.8 and 2.0. Because the high-order bit of 
the mantissa is always 1, it is not stored in the 
number. This representation gives an exponent range 
of 18**38 and 7 digits of precision. The maximun 
real contains the sign bit and the most significant 
bits of the exponent. The least significant byte 
contains the least significant bits of the mantissa. 


Double-precision real numbers are IEEE 8-byte real 
numbers. They have a format similar to 4-byte 
REALS. The exponent is ll-bits excess 1923, and the 
mantissa has 52 bits (plus the implied high-order 1 
bit). 


Logical 


LOGICAL*2 values occupy two bytes. The least 
Significant (first) byte either is @ (.FALSE.) or 1 
(.TRUE.); the most significant byte is undefined. 
LOGICAL*4 variables occupy two words, the least 
significant (first) of which contains a LOGICAL*2 
value. The most significant word is undefined. 
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Character 


Character values occupy 8 bits and correspond to the 
ASCII collating sequence. 


Files 


MS~-FORTRAN files use File Control Blocks (of type 
FCBFQQ) , allocated dynamically on the heap. 
MS-FORTRAN File Control Blocks are not are not 
identical to those used by MS-Pascal. See 
Appendix A for a complete listing. 


Procedural Parameters (Subroutine and Fumction 
Parameters) 


Procedural parameters contain a reference to the 
location of the subroutine or function. The | 
parameter always contains two words: the first word 
is zero, and the second word contains a data segment 
offset address. This address is an offset to two 
words in the constant area that contain the 
segmented address of the actual routine. 


7.3 INTERFACING TO ASSEMBLY LANGUAGE ROUTINES 


All subroutines and functions in MS-FORTRAN are 
external. You do not need an EXTERNAL statement to 
declare them external. When a subroutine or function 
is called, the addresses of -the actual parameters 
are pushed on the stack in the order that they are 
declared, MS-FORTRAN always uses call by reference, 
even if the actual parameters are expressions or 
constants. 


An additional implicit parameter is pushed on the 
stack if the called procedure is a function, ard the 
function return type is real or double precision. 
This parameter is the two-byte address of a 
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temporary variable created by the calling program. 
After all parameters are pushed, the return address 
is pushed. If the called procedure is a function, 
the return value is expected as follows: 


fe) If the return value is a two-byte integer or 
logical value, that value is expected in the AX 
register, as in Figure 7-2. 


Figure 7~2: Two-Byte Return Value 
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AX,DX pair, aS in Figure 7-3. 


Figure 7-3: Four-—Byte Return Value 
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byte real value, that value is expected in the 
temporary variable created by the calling 
program. The two-byte address of this 
tenporary variable is the last parameter pushed 
on the stack. It is always at BP-6 (see 
Example 2). 


Example 1: INTEGER*4 Add Routine 


Assume the following MS-FORTRAN program has been 
canpiled: 


PROGRAM EXAMPL1 

INTEGER I, TOTAL, TADD 
I= 19 

TOTAL = IADD (I,15) 

WRITE (*,° (1X,16)") TOTAL 
END 


At run-time, just prior to the transfer to IADD, the 
stack is as shown in Figure 7-4. 


Figure 7~4: Stack Before Transfer to IADD 
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An assembly language routine that implements the 
integer ADD function (IADD) might be the following. 
The function return value is AX,DX. 


NAME TEST 1 
ASSUME CSsCODE 
CODE SEGMENT "CODE‘ 
PUBLIC IADD 
TADD PROC FAR 
PUSH BP ;Save framepointer on 
stack 
MOV BP,SP 
LES BX,DWORD PTR[BP+10] ;ES,BX := 
address of Ist parameter 
MOV AX, ES: [BX] ;AX,DX := address of 
ist perameter 
MOV DX, ES [BX+2] 
LES BX,DWORD PTR[BP+6] ;ES,BX := 
address of 2nd parameter 
ADD AX,ES: [BX] ;AX,DX := Ist parameter 
plus 
ADC DX, ES [BX+2] z2nd parameter 
POP BP Restore the framepointer 
RET AH | ;Return, pop 8 bytes 
TADD ENDP ig ee ee 
CODE ENDS ke 
END 
Example 2: REAL*4 Add Routine 


Assume the following. FORTRAN program has been com- 


piled: 


PROGRAM EXAMPLL2 
REAL R, TOTAL, RADD 


R 


= 19.0 


TOTAL = RADD (15.9,R) 
WRITE (*,"1X,F16.3)") TOTAL 
END 


At run-time, just prior to the transfer to RADD, the 
stack would be as shown in Figure 7-5. 


Figure 7-5: Stack Before Transfer to RADD 
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An assembly language routine that implements the 
real add function (RADD) might be as follows. The 
function return value is in the location specified 
by BP+s. 
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NAME RST2 
ASSUME CS:CODE 
CODE SEGMENT 
PUBLIC RADD 
RADD PROC 
PUSH 
MOV 
LES 
FLD 


LES 
FLD 


FADDP 
MOV 
FSTP 


FWAIT 
POP 
RET 
RADD 
CODE 


NOTES Data used 


"CODE! 
FAR 
BP ;Save framepointer on stack 
BP,SP . 
BX,DWORD PTR{[BP+12] ;ES,BX := address of lst parameter 
ES: {BX] 7Push value of ist parameter: 
pon 8687 stack i 
BX,DWORD PTR{BP+8] ;ES,BX := address of 2nd parameter 
ES: [BX] f;Push value of 2nd parameter 
‘son 8087 stack 
ST(1),ST ;Add first two items on 8887 stack 


DI, (BP+6] ;DI s* address of function return 

(DI J ;Store result on 8987 stack at 
7function return location 

BP 

GAH ;Return, pop 1@ bytes 

ENDP 

ENDS 

END 


by assembly language routines must be placed in 


a segment whose name is DATA, whose classname is ‘DATA’, and 


which is grouped 


in DGROUP. The ASSUME statement ‘is required. 


8. ADVANCED TOPICS 


he napter contains advanced technical informa 
£ interest primarily to experienced programmers. 
ince MS-FORTRAN and MS-~Pascal have the same 
compiler back end, and share a common file and run- 
time system, much of the information that follows 
refers te both languages. Differences are noted. 


S.1 THE STROCTURE Gf THE COMPILER 


eee x is divic 
ch does a specifi 
ass. Figu 

2 oe ard its 
and writes. 


relationship to the fi 


Figure 8-1: The Structure of the Compiler 


The Compiler Files 
pa en ee + 
PASS ONE 
Scanner €--e--~ source 
Front | Low-level utilities = ------ > sourcelist 
End 
Middle-level utilities ------ > icode ----—— + 
High-level utilities --~--~-- > symtab ---+ 
Cee | : 
PASS TWO ee mit 
Opt imi zer ssi aie cance Eade gee + 
Code generator ween > bincod --==+ 
Link text emitter Knee ne eee + 
a ae > symtab -—-+ 
Back | 
hoo > object 
a et tn + 
PASS THREE Cea eas Catan ae + 
Object code lister <soeen t  e + 
--e > objectlist 
Po Sal eee ees | 


Pass one (which normally corresponds to a file named 


FOR1) is the front end of the compiler. 


following actions: 


fe) Reads the source program 
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It does 


re) Compiles the source into an intermediate fom 
‘e) Writes the source listing file 

fe) Writes the symbol table file 

fe) Writes the intermediate code file 

Passes two and three (the files PAS2 and PAS3) 


together make up the back end, which does the 
following: 


fe) Optimizes the intermediate code 
re) Generates target code from intermediate code 
fe) Writes and reads the intermediate binary file 


fo) Writes the object (link text) file 
Oo Writes the object listing file 


Both the front and back end of the campiler are 
written in MS~Pascal. The source format can be 
transformed into either relatively standard Pascal 
or into system level MS—Pascal. (See the MS- 
Pascal Reference Manual for a discussion of _ 
implementation levels in MS-~Pascal.) 


All intermediate files contain MS-Pascal records. 

/ The front and back ends include a common constant 
‘and type definition file called PASCOM which defines 
the intermediate code and symbol table types. The 
back ends use a similar file for the intermediate 
binary file definition. Formatted dump programs for 
all intermediate files and object files are 
available for special purpose debugging. 


The symbol table record is relatively complex, with 
a variant for every kind of identifier (variables, 

procedures, intrinsic functions, and common blocks). 
The intermediate code (or Icode) record contains an 
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Icode number, opcode, and up to four arguments; an 
argument can be the Icode number of another Icode to 
represent expressions in tree form, or something 
else (such as a symbol table reference, constant, or. 
length). The intermediate binary code record 
contains several variants for absolute code for data 
bytes, public or external references, label 
references and definitions, etc. 


8.1.1 THE FRONT END 


The MS-FORTRAN front end is divided into several 
parts: 


re) The scanner 
fe) Various low level utilities 


fo) EXECSTMTS, which processes executable 
statements 


fo) DECLSTMTS, which processes declarative 
statements 


The front end is driven by recursive descent syntax 
analysis, using a set of procedures such as 
EXPRESSION (for expressions) and VARIABLE (for 
variables). Parsing is done on a strict statement 
basis. The scanner procedure GETSTMT gets the next 
MS-FORTRAN statement into the statement buffer. 


Overall compilation control depends on a series of 
states, handled as shown in Table 8-1. 


Table 8-1: Front End Compilation Procedures 


NAME FUNCTION 
INITSTATE Initialize procedure 
HEADSTATE Process subroutine header 
IMPSTATE Process IMPLICIT statements 
SPECSTATE Process specification statements 
DATASTATE Process DATA statements 
STMTFUNSTATE Process statement functions 
EXECSTATE Process executable statements 
ENDSTATE End procedure 


me a He cd et eh he Ne HN tL i RD En HOA AAO WED a DM Nh <REDY ME Se  H  S = man SO HY 


After initializing in INITSTATE, the current state 
cycles from HEADSTATE through EXECSTATE for the 
program and for all subroutines and functions. The 
final procedure (ENDSTATE) carries out program 
termination. 


MS-FORTRAN intermediate files are written in the 
same manner as those in the MS~Pascal front end. A 
few of the intermediate code operations are specific 
to MS-FORTRAN,. particularly those concerned with 
assigned GOTO and DO statements. The symbol table 
contains special flags for COMMON and EQUIVALENCEd 
variables, since these affect common subexpression 
optimization. 


8.1.2 THE BACK END 
The back end of the compiler is made up of two 


separate passes: Pass two is required while Pass 
three is optional. 


PASS TWO 
The optimizer reads the interpass files in the 


following order: first the symbol table for a 
block, then the intermediate code for the block. 
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Optimization is done for each “basic block" each 
block of intermediate code up to the first internal 
or user label) or up to a fixed maximum number of 
Icodes, whichever comes first. 


Within a block, the optimizer reorders and condenses 
expressions as long as the intent of the program is 
preserved. In the following program fragment, for 
instance, the array address A (J, K) must be 
calculated only once: 


A(J,K) = A(J,K)+1 
Cc J = Jel 
IF (A(J,K) .BQ. MAX) CALL PUNT 


If this program fragment is rewritten to include the 
assignment to J, shown here as a comment, the array 
address in the IF statement must be partially 
recalculated. 


This optimization is called common subexpression 
elimination. The optimizer also reorders 
expressions so that the most complicated parts are 
done first, when more registers for temporary values 
are available. It also does several other 
optimizations: 


‘e) Constant folding not done by the front -end 


fo) Strength reduction (changing multiplications 
and divisions into shifts when possible) 


fo) Peephole optimization (removing additions of 
zero, multiplications by one, and changing A := 
A + 1 to an internal increment memory Icode) 


The optimizer works by making a tree from the 
intermediate codes for each statement and then 
transforming the list of statement trees. 


There are seven internal passes per basic block: 


Le Statenent tree construction fron the Icode 
stream 


2. Preliminary transformations to set 
address/valuve flags 


3. Length checks and type coercions 


4, Constant and address folding, and expression 
reordering 


5. Peephole optimization and strength reduction 
6. Machine dependent transformations 
7. Common subexpression elimination 


Finally, the optimizer calls the code generator to 
translate the basic block from tree form to target 
machine code. 


The code generator must translate these trees into 
actual machine code. It uses a series of templates 
to generate more efficient code for special cases. 
There is a series of templates for every operation. 


For example, there’is a series of templates for the 
addition operator. The first template checks for an 
addition of the constant one. If this addition is 
found, the template generates an increment 
instruction. If the template does not find an 
addition of one, the next template gets control and 
checks for an addition of any constant. If this is 
found, the second tenplate generates an add 
immediate instruction. 


The final template in the series handles the general 
case. It moves the operands into registers (by 
recursively calling the code generator itself), then 
generates an add register instruction. The code 
generator also keeps track of register contents and 
several memory segment addresses (code, static 
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variables, constant data, etc.), and allocates any 
needed temporary variables. The code generator 
writes a file of binary intermediate code (BINCOD), 
which contains machine instruction pcodes with 
symbolic references to external routines and 
variables. A final internal pass reads the BINCOD 
file and writes the object code file. 


Pass Three 


This short pass reads both the BINCOD file 
(described in the previous section) and a version of 
the symbol table file as updated by the optimizer 
and code generator. Using the data in these files, 
Pass three writes a listing of the generated code in 
an assembler-like fommat. 


8.2 AN OVERVIEW OF THE FILE SYSTEM 


MS-FORTRAN and MS-Pascal are easily interfaced to 
existing operating systems. The standard interface 
has two parts: 


) a file control block (FCB) declaration 


fe) a set of procedures and functions, called Unit 
U, that are called from MS-FORTRAN or MS~Pascal 
at run-time to perform input and output 


This interface supports three access methods: 
TERMINAL, SEQUENTIAL, and DIRECT. 


Each file has an associated FCB (file control 
block). The FCB record type begins with a number of 
standard fields whose details are independent of the 
operating system. These are followed by fields 
(such as channel numbers, buffers, and other 
operating system data) that are dependent on the 
operating system. 


we 


The advanced MS~Pascal user can access FCS fields 
directly (as explained in Chapter 7 of the MS~Pascal 
Reference Manual). There is no standard way to ve 
access FCB fields within MS~FORTRAN. 


Both MS-FORTRAN and MS~Pascal have two special FCBs 
that correspond to the keyboard and the screen of 
your camputer. These two FCBs are always available. 
In MS-Pascal, they are the predeclared files INPUT 
and OUTPUT; in MS~FORTRAN, they are Unit number @ 
(or *) and accessed through a variable TRMVQO 
declared as follows: 


VAR TRMVQOQ: ARRAY [BOOLEAN] OF ADR OF FCBFQQ; 


The false element references the output file; the 
true element references the input file. 


Unit U refers to the target operating system 
interface routines. The file routines specific to 
MS~Pascal are called Unit F; the file routines 
specific to MS-FORTRAN are called Unit V. Code 
generated by the campiler of either language 
contains calls to the appropriate unit (F or V), 
which in turn call Unit U routines. Figure 8-2 
shows this relationship schematically. 


Figure 8-2: The Unit U Interface 


MS—Pascal MS~FORTRAN 
Campiler ----> Code Code <---- Compiler 
Vv Vv 
Unit F Unit V 
\ / 
A a ot 
Ne of 
ae 
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Unit U (Interface to 
(operating system) 


The file system uses the following naming convention 
for public linker names: 


1. All linker globals are six alphabetic 
characters, ending with Q. (This naming 
convention helps to avoid conflicts with your 
program global names.) 


2% The fourth letter indicates a general class, 
where: 


ae XXXFQO is part of the generic MS—Pascal 
file unit. 
b. xxxVQQ is part of the generic MS~FORTRAN 
file unit. 
c. x*xxUQQO is part of the operating system 
interface unit. 
File system error conditions can be: 
e) Detected at the lower Unit U level 


re) Detected at the higher Unit F or V level 
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is) Undetected 


When a Unit U routine detects an error, it sets an 
appropriate flag in the FCB and returns to the 
calling Unit F or V routine. When Unit F or V 
detects an error or discovers Unit U has detected 
one, it takes one of these actions: 


fe) An immediate run-time error message is 
generated, and the program aborts. 


ro) Unit F or V returns to the calling program if 
error trapping has been set (in MS-—Pascal with 
the TRAP flag, in MS-FORTRAN with the ERR=nnn 
clause). 


Units F and V do not pass a file with an error 
condition to a Unit U routine. For some access 
methods, certain file operations may lead to an 
undetected error, such as reading past the end of a 
record (this condition has undefined results). 
Runtime errors that cause a program abort use the 
standard error-handling system. This system gives 
the context of the error and provides entry to the 
target debugging system. 


8.3 RUN-TIME ARCHITECTURE 


The remainder of this chapter describes several 
topics related to the run-time structure of MS~ 
FORTRAN and MS—Pascal. Differences between 
languages are mentioned where they exist. 


8.3.1 RUN~TIME ROUTINES 


MS-FORTRAN and MS—Pascal run-time entry points and 
variables conform to the same naming convention: 

all names are six characters, and the last three are 
a unit identification letter followed by the letters 
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"oo". Table 8-2 shows the current unit identifier 
suffixes. 


Table 8-2: Umit Identifier Suffixes 


SUFFTX UNIT FUNCTION 


AQO Canplex real 

BOO Compiletime utilities 
COO Encode, decode 

DOO Double precision real 
EOO Exror handling 

FQQ MS-Pascal file system 
GOO Generated code helpers 
HOO Heap allocator ; 
100 Generated code helpers 
JOO Generated code helpers 
KQO FCB definition 

LLOQ STRING, LSTRING 

MOQ Reserved 

NOQ Long integer 

000 Other miscellaneous routines 
PQQ Peode interpreter 

Q00 Reserved 

ROO Real (single precision) 
SOO Set operations 

TOO Reserved 

UO Operating system file system 
VOQ MS-FORTRAN file systen 
WoO Reserved 

XOO Initialize/Terminate 
¥QO Special utilities 

ZQQ Reserved 


8.3.2 MEMORY ORGANIZATION 
Memory on the 8986 is divided into segments, each 


containing up to 64K bytes. The relocatable object 
format and MS-LINK also put seqments into classes 
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and groups. All segments with the same class name 
are loaded next to each other. All seoments with 
the same group name must reside in one area up to 
64K long; all segments in a group can be accessed 
with one 8886 segment register. 


MS~FORTRAN and MS—Pascal both define a single group, 
named DGROUP, which is addressed using the DS or SS 
segment register. Normally, DS and SS contain the 
same value, although DS may be changed temporarily 
to some other segment and changed back again. SS is 
never changed. Its segment registers always contain 
abstract segment values; the contents are never 
examined or operated on. This provides 
compatibility with the Intel 88286 processor. Long 
addresses, such as MS—Pascal ADS variables or MS~ 
FORTRAN named COMMON blocks, use the ES segment 
register for addressing. 


Memory is allocated within DGROUP for all variables, 
constants which reside in memory, the’ stack, the 
heap, FORTRAN blank common, and segmented addresses 
of FORTRAN named canmon blocks. The named common 
blocks themselves reside in their own segments, not 
in DGROUP. 


Memory in DGROUP is allocated from the top down; 
that is, the highest addressed byte has DGROUP 
offset 65535, and the lowest allocated byte has some 
positive offset. This allocation means offset zero 
in DGROUP can address a byte in the code portion of 
memory, in the operating system below the code, or 
even below absolute memory address zero (in the 
later case the values in DS and SS are "negative"). 


DGROUP has two parts: 


1. A variable length lower portion containing the 
heap and the stack. 
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26 A fixed-length upper portion containing static 
variables, constants, blank common, and name 
common addresses, 


After your program is loaded during initialization 
(in ENTX6L), the fixed upper portion is moved upward 
as much as possible to make room for the lower 
portion. If there is enough memory, DGROUP is 
expanded to the full 64K bytes. If there is not 
enough memory for this, DGROUP is expanded as much 
as possible. 


The following paragraphs describe memory contents, 

starting at the bottom (address zero), when an MS~ 

FORTRAN or MS~Pascal program is running. Addresses 
are shown in “segment:offset" form. 


BOGE 3 C268 


The beginning of menory on an 8886 system contains 
interrupt vectors, which are segmented. addresses. 
The first 32 to 64 are usually reserved for the 
operating system. Following these vectors is the 
resident portion of the operating system (MS~DOS in 
this case). ~ 


MS-DOS provides for loading additional code above 
it. This code renains resident and is considered 
part of the operating system as well. Examples of 
resident additional code are special device drivers 
for peripherals, a print spooler, or the debugger. 


BASE: 0688 


Here BASE means the starting location for loaded 
programs (sometimes called the transient program 
area). Loading begins here when you invoke an MS- 
FORTRAN or MS-Pascal program. The beginning of your 
program contains the code portion, with one or more 
code seaments. nese code segments are in the same 
order as the object modules given to the linker, 
followed by object modules loaded from libraries. 


DGROUP: LO 


Next comes the DGROUP data area, containing the 
following: 


Segment Class Description 

HEAP MEMORY Pointer variables, some files 
MEMORY MEMORY (not used, Intel canpatible) 
STACK STACK Frame variables and data 

DATA DATA Static variables 

COMADS COMADS Addresses of named commons 
CONST CONST Constant data 

COMMQQ COMMON FORTRAN blank common 


The stack and the heap grow toward each other, the 
stack downward and the heap upward. 


DGROUP: TOP 


Here TOP means 64K bytes (4K paragraphs) above 
DGROUP: @@@8 (i.e., just past the end of DGROUP). 
MS-FORTRAN named COMMON blocks start here. Each 
COMMON block has a segment name (declared in the MS- 
FORTRAN program as the COMMON block name) and the 
class name COMMON. Each named COMMON has one 
segmented (ADS) address in the COMADS segment in 
DGROUP. All references to COMMON block camponent 
variables use offsets from this address. 


HIMEM: 8096 


The segment named HIMEM (class HIMEM) gives the 
highest used location in the program. The segment 
itself contains no data, but its address is used 
during initialization. Available memory starts here 
and can be accessed with MS~Pascal ADS variables. 
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MS-DOS keeps its command processor (the part of 
itself which does COPY, DIR, and other resident 
commands) in the highest location in memory 
possible. Your MS-FORTRAN or MS-Pascal program may 
need this area to run. If so, the command processor 
is overwritten with program data. When your program 
finishes, the command processor is reloaded from the 
file COMMAND.COM on the default drive. 


In some circumstances, the check may result in a 
message appearing on your screen telling you to 
insert a disk that contains the appropriate file, 
COMAND.CMD., You can avoid this delay by making sure 
that COMMAND.CMD is on the disk in the default drive 
when the progran ends. 


Figure 8-3 shows the memory organization just 
discussed. 


Figure &-3< 
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8.3.3 INITIALIZATION AND TERMINATION 


Every executable file contains one (and only one) 
starting address. When MS-~FORTRAN or MS~Pascal 
object modules are involved, this starting address 
is normally at the entry coint BEGXCO in the module 
ENTX. For this version, the name ENTX is appended 
with 6L. An MS-FORTRAN or MS-Pascal orcgram (as 
opposed to a module or implementation) has a 
starting address at the entry point ENTGOOQ. BEGXOQ 
calls ENTGCOQO. 


discussion assumes that an MS-FORTRAN 
program, along with other object 
and executed. You can also link 
y or other language with 
MS=-FORTRAN or MS~Pascal. 

t initialization and 
he ENTX module may neec 


some 
termination done by 
done elsewhere. 


to be 


Several levels of initialization are required to 
link a program with the run-time library and start 
execution. The levels are, in the order in which 
they occurs 


re) Machine-oriented initialization 
fe) Run-time initialization 
fo) Program and unit initialization 


The general scheme is shown in Figure 8-4. 


Figure 8-4: MS-—FORTRAN Program Structure 


ENTX module 
BEGXQQ: Set stackpointer, framepointer 
Initialize public variables 
Set machine dependent flags, 
registers, and other values 
Call INIX87 
Call INIUQO 
Call BEGOQO 
Call ENTGQQ {Execute program} 
ENDXQQ: {Aborts come here} 
Call ENDOOQO 
Call ENDYQOQ 
Call ENDUQQ 
Call ENDX87 
Exit to operating system 


INTR Module 
INIX87: Real processor initialization 


ENDX87: Real processor termination 
nevada tecnue Mle ae eka ae + 


Unit U 
INIUQQ: Operating system specific 
file unit initialization 
ENDUQQ: Operating system specific 
file unit termination 


MISO Module 
BEGOQO: (Other user initialization) 
ENDOQQ: (Other user termination) 


Program Module 
ENTGCOQ:Call INIVOO 


Kechine Level Initialization 


The entry point of an MS-FORTRAN or MS-Pascal load 
module is the routine BEGXOO in the module ENTX6L. 


BEGXOO does the following: 
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Moves constant and static variables upward (as 
described in Section 8.3) creating a gap for 
the stack and the heap. 


Sets the framepointer to zero. 


Initializes a number of public variables to 
zero or NIL. These include: 


-~  RESEQQ: Machine error context 

-- CSXEQQ: Source error context list header 
-- PNUXQQ: Initialized unit list header 

~- HDRFQQ: Pascal open file list header. 

-~ HDRVQQ: MS-FORTRAN open file list header 


Sets machine-dependent registers, flags, and 
other values. 


Sets the heap control variables. BEGHQQ and 
CURHGO are set to the lowest address for the 
heap. (The word at this address is set to a 
heap block header for a free block the length 
of the initial heap). ENDHQQ is set to the 
address of the first word after the heap. The 
stack anc the heap grow together, and the 
public variable STKHQQ is set to the lowest 
legal stack address (ENDHQQ, plus a safety 
gap) « 


Calls INIX87, the real processor initializer. 
This routine initializes an 8087 or sets 8087 
emulator interrupt vectors, as appropriate. 
Calls INIUQQ--the file unit initializer 
specific to the operating system. If the file 
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unit is not used and you don’t want to load it 
a dummy INIUGQ routine must be loaded instead. 


) Calls BEGOQQ, the escape initializer. In a 
normal load mcdule, an empty BEGOQO is 
included. However, this call provides an 
escape mechanism for any other initialization. 
For example, it could initialize tables for an 
interrupt driven profiler or a run-time 
debugger. 


oO Calls ENTGQQ, the entry point of your MS— 
FORTRAN or MS—Pascal program. 


Program Level Initialization 


Your main program continues the initialization 
process. First, the language specific file system 
is called. (INIVOQ for MS-FORTRAN or INIFQQ for MS~ 
Pascal). Both are parameterless procedures. 


If the main program is in MS-FORTRAN and MS~Pascal 
file routines will be used, INIFOQO must be called to 
initialize the MS—Pascal file system. If the main 
program is in MS—Pascal and MS-FCRTRAN file routines 
will be used, INIVOO must be called to initialize 
the MS-FORTRAN file system. 


MS-FORTRAN main programs automatically call INIVQO; 
MS~Pascal main programs automatically call INIFCO. 
To avoid loading the file system, you must provide 
an empty procedure to satisfy one or both of these 
calls. I£ SDEBUG has not been set, ENTEQO is called 
to set the source error context. 


Program Termination 
Program termination occurs in one of these ways: 


fe) The program can terminate nomally, in which 
case the main program returns to BEGXQQ, at the 
location named ENDYQQ. 


fe) The program can abort due to an error 
condition, either with a user call to ABORT or 
a run-time call to an error handling routine. 
In either case, an error message, error code, 
and error status are passed to EMSEQQ. EMSEQO 
does whatever error handling it can and calls 
ENDXQQ « 


fe) ENDXOQ can be called directly. 


ENDXQQ first calls ENDOQQ, the escape terminator, 
which normally returns to ENDXQQ. ‘Then ENDXQO calls 
ENDYQQ, the generic file system terminator. ENDYQQ 
closes all open Pascal and MS-FORTRAN files, using 
the file list headers HDRFQQ and HDRVOQ. ENDX0O 
calls ENDUQQ, the operating system specific file 
unit terminator. Finally, ENDXQQ calls ENDX87 to 
terminate the real number processor (8087 or 
enulator). As with INIUQQ, INIFQQ, and INIVQQ, you 
must declare empty parameterless procedures for 
ENDYQQ and ENDUQQ if your program requires no file 
handling. 


The main initialization and termination routines are 
in module ENTX6L. Procedures for BEGOQQ and ENDO 
are in module MISO. ENDYQO is in module MISY. 


8.3.4 ERROR HANDLING 


Run-time errors are detected in one of the following 
ways: 


fe) The user program calls EMSEQ). 


8-22 


oO A run-time routine calls EMSECOQ. 


oO An error checking routine in the error module 
calls EMSEQQ. 


‘e) An internal helper routine calls an error 
message routine in the error unit that, in 
turn, calls EMSEQO. 


Handling an error detected at run-time usually 
involves identifying the type and location of the 
error and then terminating the program, or (with 
ERR= in an I/O statement) returning to the calling 
MS~FORTRAN procedure. 


The error type has three components: 
1. A message 

26 An error number 

3e An error status 


The message describes the error; you can use the 
number to look up more information (in Appendix A, 
“Error Messages," in the MS-FORTRAN Reference 
Manual). In MS~FORTRAN, the error status value is 
used for special purposes; it has no significance 
for the user. In MS—Pascal, the error status value 
is undefined. 


Table 8-3 shows the general scheme for error cede 
numbering. 


Fable 6~3: Error Code Classification 
RANGE CLASSIFICATION 


l- 999 Front end errors 
188G~-1099 Unit U file system errors 
1106-1199 Unit F file system errors 
1280-1299 Unit V file system errors 
1306-1999 Reserved 
2080-2049 Heap, stack, memory 
2956-2099 Ordinal and long integer arithmetic 
2198-2149 REAL*4 and REAL*8 arithmetic 
2158-2199 Structures, sets, and strings 
2200-2399 Reserved 
2400-2449 Pcode interpreter 
2458-2499 Other internal errors 
2508-2999 Reserved 
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An error location has two parts: 
Es The machine error context 
20 The source program context 


The machine error context is the program counter, 
Stackpointer, and framepointer at the point of the 
error. The program counter is always the address 
following a call to a run-time routine (e.g., a 
return address). The source program context is 
optional; it is controlled by the SDEBUG 
metacommand. If SDEBUG is in effect, the program 
context consists of: 


oO The source filename of the compiland containing 
the error 

fe) The name of the routine in which the error 
occurred 


) The listing line number of first line of the 
statement 


Machine Error Context 


Run-time routines are compiled by default with the 
SRUNTIME metacommand set. This generates special 
calls at the entry and exit points of each run-time 
routine. The entry call saves the context at the 
point where a run-time routine is called in the user 
program. This context consists of the frame 
pointer, stack pointer, and program counter. If an 
error occurs in a run-time routine after a context 
is saved, the error location is always in the user 
program. This is true even if run-time routines 
call other run-time routines. The exit call that is 
generated restores the context. 


The run-time entry helper, BRTEQQ, uses the run-time 
values shown in Table 8-4. 


Table 8-4: Runtime Values in BRTEQO 
VALUE DESCRIPTION 


RESEQOQ Stack Pointer 

REFEQQ Frame Pointer 

REPEQOQ Program Counter Offset 
RECEQO Program Counter Segment 


The first thing that BRTEQQ does is examine RESEQQ. 
If this value is not zero, the current run-time 
routine was called from another run-time routine and 
the error context has already been set. In this 
case, the value is returned. If RESEQQ is zero, 
however, the error context must be saved. The 
caller's stackpointer is determined from the current 
framepointer and stored in RESEQQ. The address of 
the caller's saved framepointer and return address 
(program counter) in the frame is determined. Then 
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the caller's framepointer is saved in REFEQQ. The 
caller's program counter (BRTEQQ's caller's return 
address) is saved: the offset in REPEQQ and the 
segment, if any, in RECEQQ. 


The run-time exit helper, ERTEQQ, has no parameters. 
It determines the caller's stackpointer (again, from 
the framepointer) and compares it against RESEQO. 

If these values are equal, the original run-time 
routine called by your program is returning. In 
this case, RESEQO is set back to zero. 


EMSEQO uses RESEQO, REFEQQ, REPEQQ, and RECEQQ to 
display the machine error context. 


Source Error Context 


Giving the source error context involves extra 
overhead, Since source location data must be 
included (in some form) in the object code. 
Including this data is done with calls which set the 
current source context as it occurs. These calls 
are also used to break program execution as part of 
the debugging process. The overhead of source 
location data (especially line number calls) can be 
Significant. Although routine entry and exit calls, 
require more overhead, they are much less frequent. 
Thus the total overhead is less. 


The procedure entry call to ENTEQQ passes two VAR 
parameters: the first is an LSTRING containing the 
source filename; the second is a record that 
contains the following: 

1. The line number of the procedure 

26 The subroutine or function identifier 

The filename is that of the canpiland source (e.g., 


the main source filename, not the names of any 
SINCLUDE files). The procedure identifier is the 
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full identifier used in the source, not the linker 
name. The line number is the first executable 
statement in the procedure. Entry and exit calls 
are also generated for the main program, in which 
case, the identifier is the progran name. The 
procedure exit call to EXTEQQ does not pass any 
parameters. It pops the current source routine 
context off a stack maintained in the heap. 


The line number call to LNTEQQ passes a line number 
aS a value parameter. The current line number is 
kept in the public variable CLNEQQ. Since the 
current routine is always available, the compiland 
source filename and routine containing the line are 
available along with the line number. Line number 
calls are generated just before the code in the 
first statement on a source line. The statement 
can be part of a larger statement. 


Most of the error handling routines are in oe 
ERRE and FORE. The source error context entry 
points ENTEQQ, EXTEQO, and LNTEQO are in the debug 
module, DEBE. 


This appendix lists the complete file control block 
specification for the current version of the MS- 
FORTRAN run-time system. ‘The underlying data tyne 
is an MS-Pascal record. Numbers in square brackets 
give the byte offset for each field of the file 
control block. 


{MS-~FORTRAN File Control Block for MS-DOS} 


INTERFACE; UNIT 
FILKQQ (FCBFQQ, FILEMODES, SEQUENTIAL, TERMINAL, DIRECT, 
DEVICETYPE, CONSOLE, LDEVICE, DISK, 
DOSEXT, DOSFCB, FNLUQQ, SCTRLNTH) ; 


CONST 
FNLUQO = 21; { length of a MS-DOS filename } 
SCTRLNTH = 512; { length of a disk sector } 
TYPE 
DOSEXT = RECORD { DOS file control block extension} 
PS [8]: BYTE; { boundary byte, not in extension } 
FG [l]: BYTE; { flag; must be 255 in extension } 
XZ {2}: ARRAY [@..4] OF BYTE; { pad, internal use } 
AB {7]¢ BYTE; { internal use for attribute bits } 
END; 
DOSFCB = RECORD { DOS file control block (normal) } 
DR [6]: BYTE; { drive numb, @=default, 1l=A ete } 
FN {lj}: STRING (8); { file name ~ eight characters } 
FY {9}: STRING (3); { file extn - three characters } 
EX [12]: BYTE; { current extent; lo order byte } 
E2 [13]: BYTE; { current extent; hi order byte } 
S2 [14]: BYTE; { size of sector; lo.order byte } 
RC [15]: BYTE; { size of sector; hi order byte } 
Z1 [16]: WORD; { file size; lo word; readonly } 
Z2 [18]: WORD; { file size; hi word; readonly } 
DA [20]: WORD; { date; bits: DDDDDMMMMYYYYYYY } 
DN [22]: ARRAY [@..9] OF BYTE; { reserved for DOS } 
CR [32]: BYTE; { current sector (within extent) } 
RN (33]: WORD; { direct sector number (lo word) } 
R2 [35]: BYTE; { direct sector number (hi byte) } 
R3 [36]: BYTE; { DSN hi byte if sect size < 64 } 
PD [37]: BYTE; { pad to word boundary; not DOS } 
END; 


DEVICETYPE = (CONSOLE, LDEVICE, DISK); { physical device } 


FILEMODES = (SEQUENTIAL, TERMINAL, DIRECT); { access mode } 


TYPE 

FCBFQQ = RECORD {byte offsets start every field comment} 
{fields accessible as <file variable>.<field>} 

TRAP: BOOLEAN; {@8 Pascal user trapping errors if true} 
ERRS: WRD(@)..15; {@l error status, set only by all units} 
MODE: FILEMODES; {@2 user file mode; not used in unit Uv} 
MISC: BYTE; {G3 pad to word bound, special user use} 


{fields shared by units 


F, V, U; ERRC/ESTS are write-only} 

error code, error exists if nonzero} 
{1909..1899: set for unit U errors} 
{1180..1199: set for unit F errors} 
{1208..1299: set for unit V errors} 
error specific data usually from 0S} 
system file mode; copied from MODE} 


{fields set/used by units F and V, and read-only in unit U} 


ERRC: WORD; {94 
ESTS: WORD; {06 
CMOD: FILEMODES; {98 
TXTEF: BOOLEAN; {G9 
SIZE: WORD; {16 
MISB: WORD; {12 
OLDF: BOOLEAN; {14 
INPT: BOOLEAN; {15 
RECL: WORD; {16 
RECH: WORD; {18 
USED: WORD; {20 


true: formatted / ASCII / TEXT file} 
{false: not formatted / binary file} 
record size set when file is opened} 
{DIRECT: always fixed record length} 
{others: max length (UPPER (BUFFA)) } 
unused, exists for historic reasons} 
true: must exist before open; RESET} 
{false: can create on open; REWRITE} 
true: user is now reading from file} 
{false: user is now writing to file} 
DIRECT record number, lo order word} 
DIPSCT record number, hi order word} 
number bytes used in current record} 


{field used internally by units F and V not needed by unit JU} 


LINK: ADR OF FCBFOQQ; {22 


{fields used internally 


DS offset address of next open file} 


by unit F not needed by units V or U} 
ADR of buffer variable (end of FCB) } 

true if temp file; delete on CLOSE} 

buffer lazy evaluation status, TEXT} 

for unformatted binary mode} 

file opened; RESET / REWRITE called} 


by unit V not needed by units F or U} 
Unit V's unit number always above 9@} 
last operation was the ENDFILE stmt} 


{fields set/used by unit U, and read-only in units F and v} 


BADR: ADRMEM; {24 
TMPF: BOOLEAN; {26 
FULL: BOOLEAN; {27 
UNFM: BYTE; {28 
OPEN: BOOLEAN; {29 
{fields used internally 
FUNT: INTEGER; {36 
ENDF: BOOLEAN; {32 
REDY: BOOLEAN; {33 
BCNT: WORD; {34 
EORF: BOOLEAN; {36 
EOFF: BOOLEAN; {37 


{unit U (operating 


NAME: LSTRING (FNLUQQ); 
DEVT: DEVICETYPE; 

RDFC: BYTE; 

WREFC: BYTE; 

CHNG: BOOLEAN; 

SPTR: WORD; 

LNSB: WORD; 

DOSX: DOSEXT; 

DOSF: DOSFCB; 

IEOF: BOOLEAN; 


buffer ready if true; set by F / U} 
number of data bytes actually moved} 
true if end of record read, written} 
end of file flag set after EOF read} 


system) information starts here} 


{ 38 DOS filename (D:NNNNNNNN. XXX) 
{ 68 device type, accessed by file 
{ 61 function code, for device GET 
{ 62 function code, for device PUT 
{ 63 true if sbuf data was changed 
{ 64 index to current byte in sbuf 
{ 66 number of valid bytes in sbuf 
{ 68 extend DOS file control block 
{ 76 normal DOS file control block 
{114 true if eoff is true next get 


ee ee ee ee 


FNER?: 
SBFL: 
SBFC: 
SBUF: 
PMET: 
BUFF: 


END; 
END; 


BOOLEAN; {115 true if pfnugq filename error 
BYTE; {116 max textfile line len in sbuf 
BYTE; {117 number of chars, read to sbuf 
ARRAY (WRD(@)..SCTRLNTH=-1] OF BYTE; {118 sect buffer 
ARRAY [{8..3] OF BYTE; {118+sctrinth reserved pad 
CHAR: {122+sctrinth (buffer var) 


{end of section for unit U specific OS information} 


APPENDIX B. REAL NUMBER CONVERSION UTILITIES 


MS-FORTRAN releases of version 3.08 and later use the 
IEEE real number format. Earlier releases use the 
Microsoft real number format. The two formats are 


not compatible. If you need to convert real numbers 
fran one format to the other; however, use the 
following library routines: 


re) Microsoft to IEEE format: 
SUBROUTINE M2ISCQ (RMS , RIEEE) 

° IEEE to Microsoft format: 
SUBROUTINE IZMSQO (RIEEE , RMS) 


RMS and RIEEE are real numbers in Microsoft format 
and in IEEE format, respectively. 


APPENDIX C. STRUCTURE OF EXTERNAL MS~FORTRAN FILES 


The structure of an external MS-FORTRAN file is 
determined by its properties. The structures used 
in MS-FORTRAN are: 


o) Formatted sequential files. 


Records are separated by carriage return and 
linefeed (ASCII hex codes @D and @A, 
respectively). 


record N 


| | record N+l 
ee eee ae Sr a eer > 


fe) Unformatted sequential files. 


A logical record is represented as a series of 
physical records, each of which has the 
following structure: 


a + fn tt a a an + $--——— + 
bd § | data <= 128 bytes | | bo | 
oe + fen nnn + a + 
<{------------- physical record ----~-~-~-~-- > 


Each L shown above is a length byte that 
indicates the length of the data portion of the 
physical record. The data portion of the last 
physical record contains MOD(length of logical 
record,128) bytes, and the length bytes will 
contain the exact size of the data portion. 


Bach of the preceding physical records will 
contain 128 bytes in the data portion, the 
length byte will contain 129. For example, if 
the size of the logical record is 138: 


a a a $ femet feet teen + teat ten 


[129] |128 bytes | 129 1@| {18 bytes] |10 
| ' of data! | of data 

a ne a a a + feet fe- 
<n ee me ance 1 logical record ----------- 2 


The first byte of the file is reserved and 
contains the value 75, which has no other 
significance. 


re) Fomatted direct files 
Unformatted direct files 
Binary files 


No record boundaries or any other special 
characters are used. 


APPENDIX D. MS-FORTRAN SCRATCH FILE NAMES 


Scratch files are created by the MS-FORTRAN system 
when no filename is specified in an OPEN statement. 
Scratch filenames look like this: 


T<u>. TMP 


where <u> is the unit number specified in the OPEN 
statement. 


APPENDIX E. CUSTOMIZING 18887 INTERRUPTS 


This appendix describes how to customize the 18487 
interrupts on your computer system. Before 
proceeding, you should be familiar with the 
following: 


O The Intel publication, i1APX 86/20, 88/29 
Numeric Supplement 


fe) MACRO-86 macro assembler 
fe) MS-DEBUG debugging utility 


you should make backup copies of any disks you plan 
to modify. 


In the following discussion, the numbers in 
parentheses refer to the sample DEBUG session at the 
end of this appendix. To change the way the run- 
time library processes interrupts, you must use the 
MS-DEBUG (1). Although this utility is primarily for 
debugging assembly language programs, you can also 
use it to alter the binary contents of any file. 

You can also use it to alter the binary contents of 
any file. Use this second capability of DEBUG to 
customize FORTRAN.L87 for a particular hardware 
configuration. 


FORTRAN.L87, the 8887 version of the run-time 
library, contains the following assembly language 
structure: 


i8987control STROC 


LABX87 DB '<8987>';48 bit tag 

FOIX87 mB 6 sBOI instruction 

PRTX87 DB G 718259 port number 

SHRX87 DB OG ;Shared interrupt device 
INTX87 DB 2 318887 interrupt vector # 
INTORFSET DW G : 


g 


i8887control ENDS 


This structure defines the default control values 
used by the run-time library to handle 8887 
interrupts. Each of the elements of the structure 
is described briefly below: 


LABX87 


A string label. LABX87 is used only to locate the 
other structure fields in the executable binaries 
and libraries. 


EOIX87 


The hexadecimal value of the i8259 "end of 
interrupt" instruction for a particular 
implementation. To the 8887 interrupt handler, any 
nonzero value of this byte indicates the presence of 
an 18259 interrupt controller. 


PRTX87 

The control port number associated with an i8259, if 
present. 

SHRX87 

If nonzero, this is an indication that the i8887 
shares its interrupt vector with another device. 
When the 8887 interrupt handler determines that an 
interrupt it receives is not an 8087 interrupt, it 
passes control to the other interrupt device. 


INTX87 


The interrupt vector number to which the 8887 is 
connected. 


=, 


eee on your camputer system, any or all (or 
of the last four items can require changes 


Ss 


Specifically, you must alter this structure 
hare are configuration meets any of the follow 


: 255 Gecimal. rae tells the 
tware that an 18259 exists and that its Rol 
spstruction is 255. 


fe) The 18259 should issue its HOI request through 
port number 254 (PRTX87). 


fe) The nonzero value of SHRX87 indicates that the 
8987 shares its interrupts with another device. 


o) The interrupt vector number of the i8987 was 
cnanded to 4. 


‘hese values are used only for the purpose of this 
ple session. See your Hardware Reference Manual 
the values required for < your computer 


Not all of the ‘screen display issued by the cebucger 
is shown in — Crone ee oniy the varts that apply 
this procedure, Also, on most 


my 
is 


screens, the information shown in lines 7, 8, and 1G 
Will be & sing] 


ins. 


Ql) > 


(2) >debuo bsfortran.187 
(3) DEBUG-86 version 2.19 


(4) Or 

AX=@000 BX=0001 CX=B800 DX=@000 SP=FFEE BP=0900 
SI=@00G DI=0808 DS=G@AF9 ES=@AF9 SS=@AF9 CS=@AF9 
TP=8100 NV UP DI PL NZ NA PO NC 

GAF9: 0108 FO LOCK 

GAF9: 8101 FD STD 


(5) >s ds:1000 leff£ '8087>' 
(6) GAF9:237 


(7) >d af9:2370 
GAF9:2378 38 36 38 37 3E BO GO GG 8087>... 
02 06 OO F8 AG DF GG G2 ...x_.. 


(8) >d af932375 
GAF9:2375 @8 OO BWG-O2 BF GO FB AG ele wine 
DF 68 G2 ae 


(9) de af9:2375 
GAF9:2375 @@.f£ @8.fe GG.1 
GAF9:2378 62.4 


(18) >d af9: 2375 
GAF9:2375 EE FE O1-04 00 OO F8 AG ......x 
DF G8 62 4 ue 


(11) >w 


(12) >q 


(13) 


> 


Comments ¢ 


(1) 
(2) 
(3) 
(4) 
(5) 


(6) 


(19) 
(11) 
(12) 


(13) 


MS~DOS prompt. 

Call DEBUG with FORTRAN.L87. 

DEBUG utility prompt. 

Instruct debugger to show 8886 registers. 


Instruct debugger to search efff bytes 
beginning at DS:1@@ for the string '8887>'. 


String found at @GAF9: 2376. 
Instruct debugger to display the string. 


Advance to the beginning of the 'i8887control' 
structure. 


Instruct the debugger to make the following 
alterations: 


EOIX87 to FF hex, 255 decimal 

PRTX87 to FE hex, 254 decimal 

SHRX87 to 1 hex 

INTX87 to 4 
Instruct the debugger to display any changes. 
Write any changes to the source file. 


Stop the debugger. 


MS~DOS pranpt returns. 


APPENDIX F. MS-LINK ERROR MESSAGES 


Any link error causes the link session to abort. 
After you have found and corrected the problem, you 
must rerun MS-LINK. Uink errors have no code 
number. See the Programmer's Tool Kit, Volume II 
for further information on MS-LINK. 


Attempt to access data outside of se 
possibly bad object module 
There is probably a bad object file. 


Bad numeric parameter 
Numeric value is not in digits. 


Cammot open temporary file 
MS-LINK is unable to create the file VM. TMP 
because the disk directory is full. Insert a 
new disk. Do not renove the disk, that will 
receive the list map file. 


Error: dup record too complex 
DUP record in assembly language module is too 
complex. Simplify DUP record in assembly 
language program. 


Error: fixup offset exceeds field width 
An assembly language instruction refers to an 
address with a short instruction instead of a 
long instruction. Edit assembly language 
source and reassemble. 


Input file read error 
There is probably a bad object file. 


invalid object module 
An object module(s) is incorrectly formed or 
incomplete (as when assembly is stopped in the 
middle) . 


Symbol defined more than once 
MS=-LINK found two or more modules that define a 
single symbol name. 


Program size or number of segments exceeds capacity 
of Linker 
The total size may not exceed 384K bytes and 
the number of segments may not exceed 255. 


Requested stack size exceeds 64k 
Specify a size greater than or equal to 64K 
bytes with the -STACK switch. 


Segment size exceeds 64k 
64K bytes is the addressing system limit. 


Symbol table capacity exceeded 
Very many and/or very long names were typed, 
exceeding the limit of approximately 25K bytes. 


Too many external symbols in one module 
The limit is 256 external symbols per module. 


Too many groups 
The limit is 10 groups. 


foo many libraries specified 
The limit is 8 libraries. 


Too many public symbols 
The limit is 1824 public symbols. 


Too many segments or classes 
The limit is 256 (segments and classes taken 
together). 


Unresolved externals: <list> 
The external symbols listed have no defining 
module among the modules or library files 
specified. 


VM read error 
This is a disk error; it is not caused by MS~ 
LINK. 


Warning: No stack segment 
None of the object mcdules specified contains a 
statement allocating stack space, but you used 
the /STACK switch. 


Warning: seoment of absolute or unknown type 
There is a bad object module or an attempt has 
been made to Link modules that MS~LINK cannot 
handle (e.g., an absolute object mcdule). 


@rite error in tmp file 
No more disk space remains to expand VM.TMP 
file. 


Write error on run file 
Usually, there is not enough disk space for the 
run file. 
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INTRODUCTION 


OVERVIEW 


This is a language reference manual for the MS~ 
FORTRAN language system. MS-FORTRAN 


The syntactical rules for using FORTRAN are rigorous 
and require the programmer to fully define the 
characteristics of the solution to a problem in a 
series of precise statements. Therefore, we 
recommend that you have a general understanding of 
some dialect of FORTRAN before using this product. 
This manual is not a tutorial; for a list of 
suggested FORTRAN texts, see “Learning More About 
FORTRAN® in this introduction. 


About This Hanual 

This manual is organized as follows: 

Chapter 1, “Language Overview," is general in scope, providing a 
broad picture of the MS-FORTRAN language. Later chapters discuss 
the elements of the language in more detail. 

Chapter 2, “Terms and Concepts," describes the smaller elements 
of the language, from notation to data types to expressions, and 


explains program structure. 


Chapter 3, “Statements,” defines MS=-FORTRAN statements, both 
executable and nonexecutable. 


Chapter 4, "The I/O System," provides additional information 
about input and output and the MS=FORTRAN file system. 


Chapter 5, “Programs, Subroutines, and Functions,* describes the 
subroutine structure, including argument passing and intrinsic 
(syStem-provided) functions. 


Chapter 6, "The Microsoft FORTRAN Metacommands," describes the 


syntax and use of the metacommands. 


Appendix A, “Microsoft FORTRAN and ANSI Subset FORTRAN," 
describes the differences between MS-FORTRAN and ANSI Subset 
FORTRAN. 


Appendix B, "ASCII Character Codes," is a table of the entire 
ASCII character set. 


Appendix C, “Error Messages," lists the compilation and runtime 
error mesSages you may see when you compile and run your program. 


For information on how to use the MS-FORTRAN Compiler and the 
details of your specific version of MS~FORTRAN, see the Microsoft 
FORTRAN Compiler User's Guide. 


Syntax Notation 


The following notation is used throughout this manual in 
descriptions of statement syntax: 


CAPS Capital letters indicate portions of statements that 
must be entered exactly as show. 


<> Angle brackets indicate user~supplied elements. When 
the angle brackets enclose lowercase text, you replace 
the entry with an item defined by the text (e.g., the 
name of a specific file for <filename>). 


{ ] Square brackets indicate that the enclosed entry is 
optional (e.g., A[<w>], where <w> represents a field 
width, indicates that either A or Al2, for example, is 
valid). 


eee Ellipses indicate that an entry may be repeated as many 
times as needed or desired. For example, the EXTERNAL 
statement. is described as follows: 


EXTERNAL <name> [, <name>]... 


The syntactic items denoted by <name> may be repeated 


any number of times, separated by commas. 


All other punctuation, such as commas, colons, slash marks, 
parentheses, and equal signs, must be entered exactly as shown. 


Blanks normally have no significance in the description of MS- 
FORTRAN statements. The general rules for blanks, covered in 
Section 2.1.2, “Blanks," govern the interpretation of blanks in 
all contexts. 


Learning More About FORTRAN 


The manuals in this package provide complete reference 
information for your implementation of the MS-FORTRAN Compiler. 
They do not, however, teach you how to write programs in FORTRAN. 
If you are new to FORTRAN or need help in learning to program, we 
Suggest you read any of the following books; 


Agelhoff, R., and Mojena, Richard. Applied FORTRAN 77, 
Featuring Structured Programming. Wadsworth, 1981. 


David, Gordon B. and Hoffman, Thomas R. FORTRAN: A 
Structured, Disciplined Approach. McGraw-Hill Book Company, 197?. 


Friedman, F., and Koffman, E. Problem Solving and 
Structured Programming in FORTRAN. Addision-wWesley, 2nd edition, 
1981. 


Wagener, J.L. FORTRAN 77: Principles of Programming. 
Wiley, 1986 


CHAPTER 1 
LANGUAGE OVERVIEW 


This chapter provides a summary description of the 
elements of the MS@FORTRAN language. The remaining 
chapters of the manual provide detailed information 
on these elements, from the character set to the 
metacommands., 


1.1 MS-FORTRAN METACOMMANDS 


The metalanguage is the control language for the MS= 
FORTRAN Compiler. Metacommands let you specify 
options that affect the overall operation of a 
compilation. For example, with metacommands you can 
enable or disable generation of a listing file, 
runtime error checking code, or use of MS-FORTRAN 
features that are not a part of the subset or full 
language standard. 


The metalanguage consists of commands that appear in 
your source code, each on a line of its own and each 
with a dollar sign ($) in column one. | 


The metalanguage is a level of language designed to 
enhance your use of the MS=FORTRAN Compiler. 
Although most implementations of FORTRAN have some 
type of compiler control, the MS~FORTRAN 

_ Metacommands are not part of standard FORTRAN (and 
therefore are, not portable). 


These are the metacommands currently available: 


S$ {NQ] DEBUG SPAGESIZE 
$D066 SSTORAGE 
SINCLUDE $ [NOT] STRICT 
SLINESIZE SSUBTITLE 

$ [NO] LIST STITLE 

SPAGE 


See Chapter 6, for a complete discussion of 
metaconmmands. 


1.2 PROGRAMS AND COMPILABLE PARTS OF PROGRAMS 


Tne MS=FORTRAN Compiler processes program units. A 
program unit may be a main program, a subroutine, or 
a function. You can compile any of these units 
separately and iater link them tocether without 
having to recompile them as a whole. 


Program: Any program unit that does not have a 
FUNCTION or SUBROUTINE statement as its first 
statement. The first statement may be a PROGRAM 
statement, but such a statement is not required. 
The execution of a program always begins with the 
first executable statement in the main program. 
consequently, there must be only one main program in 
every executable program. 


Subroutine: A program unit that can be called from 
other program units by a CALL statement. When 
called, a Subroutine performs the set of actions 
defined by its executable statements and then 
returns control to the statement immediately 
following the statement that called it. A 
subroutine does not directly return a value, 
although values can be passed back to the calling 
program unit via arguments or common variables. 


Function: A progran unit referred to in an 
expression. A function directly returns a value 
that is used in the computation of that expression 
and in addition may pass back values via arguments. 
There are three kinds of functions: external, 
intrinsic, and statement. (Statement functions 
cannot be compiled separately.) 


Subroutines and functions let you develop large 
structured programs that can be broken into parts. 
This breakdwon may be necessary in the following 
situations: 


1. If a program is large, breaking it into parts 
makes it easier to develop, test, and maintain. 


26 If a program is large and recompiling the 
entire source file is time-consuming, breaking 
the program into parts saves compilation time, 


3. If you intend to include certain routines in a 
number of different programs, you can create a 
Single object. file that contains these routines 
and then link it to each of the programs in 
which the routines are used. 


4. If a routine could be implemented in any of 
several wayS, you might place it in a file and 
compile it separately. Then, to improve 
performance, you can alter the implementation, 
or even rewrite the routine in assembly 
language or in MS=-Pascal, and the rest of your 
program will not need to change. 

See Chapter 5, for a complete discussion of 

compilable program units. 


1.3 INPUT/OUTPUT 


Input is the transfer of data from an external 
medium or an internal file to internal storage. The 
transfer process is called reading. Output is the 
transfer of data from internal storage to an 
external medium or to an internal file. This 
process is called writing. 


A number of statements in FORTRAN are provided 
specifically for the purpose of such data transfer; 
some I/O statements also specify that some editing 
of the data be performed. 


In addition to the statements that transfer data, 
there are several auxiliary I/O statements to 
manipulate the external medium or to determine or 
describe the properties of the connection to the 
external mediun,. 


Table l=] lists the I/O statements that perform each 
of these three functions. 


Table l-1: I/O Statements 


I/O FUNCTION I/O STATEMENTS 


Data transfer READ 


WRITE 


Auxiliary I/O OPEN 


CLOSE 
BACKSPACE 
ENDFILE 
REWIND 


File positioning BACKSPACE 


ENDFILE 
REWIND 


CA ey 


The following concepts are also important for 
understanding the I/O system: 


° 


Records=~The building blocks of the FORTRAN 
file system. A record is a sequence of 
characters or values. There are three kinds of 
records: formatted, unformatted, and endfile. 


Files--~Sequences of records. Files are either 
external or internal. An external file is a 
file on a device or a device itself. An 
internal file is a character variable that 
serves as the source or destination of some 
formatted I/O action. 


All files have the following properties: 

l. A filename (optional) 

2. A file position 

3. Structure (formatted, unformatted, or binary 
4. Access method (sequential or direct) 


Although a wide variety of file types 
are possible, most applications will 
need just. two: implicitly opened and 
explicitly opened external, 
sequential, formatted files. 


See Section 3.2, for descriptions of individual I/0 
Statements. See Chapter 5, for a complete 
discussion of records, files, and formatted data 
editing. 


1.4 STATEMENTS 


Statements perform a number of functions, such as 
computing, storing the results of computations, 
altering the flow of control, reading and writing 
files, and providing information for the compiler. 
Statements in FORTRAN fall into two broad classes: 
executable and nonexecutable. 


An executable statement causes an action to be 
performed. Nonexecutable statements do not in 
themselves cause operations to be performed. 
Instead, they specify, describe, or classify 
elements of the program, such as entry points, data, 
or program units. Table 1-2 describes the 
functional categories of statements. 


fable le-2: Categories of Statements in FORT 


CATEGORY. sown DESCRIPTION 

Assignment. Executable. Assigns a value to a 
variable or an array element. 

Comment. Nonexecutable, Allows comments 
within program code, 

Control Executable. Controls the order of 
execution of statements. 

DATA Nonexecutable. Assigns initial 
values to variables. 

FORMAT Nonexecutable. Provides data editing 
information. 

I/o Executable. Specifies sources and 


destinations of data transfer, and 
other facets of I/O operation. 


Specification Nonexecutable. Defines the 
attributes of variables, arrays, and 
programmer function names. 


Statement Nonexecutable. Defines a simple, 
Function locally used function. 

Program Nonexecutable. Defines the start 
Unit of a program unit and specifies 
Heading its formal arguments. 


See Chapter 3, for a complete discussion and a 
directory of MS=FORTRAN statements. 


1.5  EXPRE 


SSLONS 


An expression is a formula for computing a value. 

It consists of a sequence of operands and operators. 
The operands may contain function invocations, 
variables, constants, or even other expressions. 
The operators specify the actions to be performed on 
the operands. 


In the following expression, plus (+) is an operator 
and A and B are operands: 


A+B 


There are four basic kinds of expressions in 
FORTRAN ¢ 


1. Arithmetic expressions 

2. Character expressions 

3. Relational expressions 

4. Logical expressions 

Each type of expression takes certain types of 
operands and uses a specific set of operators. 
Evaluation of every expression produces a value of a 
specific type. 

Expressions are not statements, but may be 
components of statements. In the following example, 
the entire line is a statement; only the portion 
after the equal sign is an expression: 


X=2.80/3.6+A*B 


See Section 2.5, for a discussion of expressions in 
MS=FORTRAN. 
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1.6 NAMES 


Names denote the variables, arrays, functions, or 
subroutines in your program, whether defined by you 
or by the MS-FORTRAN system. A FORTRAN name 
consists of a sequence of alphanumeric characters. 
The following restrictions apply: 


de The maximum number of characters in a name is 
666 characters (66 characters per line 
multipled by ten lines). 


2. The initial character must be alphabetic; 
Subsequent characters must be alphanumeric. 


3. Blanks are skipped. 


4. Only the first six alphanumeric characters are 
Significant; the rest are ignored. 


With these restrictions regarding the make-up of the 
name, any valid sequence of characters can be used 
for any FORTRAN name. There are no reserved names 
as in other languages. 

Sequences of alphabetic characters used as keywords 
by the MS-FORTRAN Compiler are not confused with 
user-defined names. The compiler recognizes 
keywords by their context and in no way restricts 
the use of user-defined names. Thus, for example, a 
program can have an array named IF, READ, or GOTO, 
with no error (as long as it otherwise conforms to 
the rules that all arrays must obey). However, use 
of keywords for user-defined names often interferes 
with the readability of a program, so the practice 
should be avoided. 


See Section 2.4, for more information on the scope a 
use of names in MS=-FORTRAN. 


1.7 TYPES 


Data in MS-FORTRAN belongs to one of five basic 
types : 


l. Integer (INTEGER*2 and INTEGER*4) 
2. Single precision real (REAL*4 or REAL) 


3. Double precision real (REAL*8 or DOUBLE 
PRECISION) 


4. Logical (LOGICAL*2 and LOGICAL*4) 
56 Character (CHARACTER) 


The full language described by the FORTRAN 77 
standard also has a complex data type, which is not 
part of the subset, nor a part of MS-FORTRAN. 


Data types can be declared. If not declared, the 
type is determined by the first letter of its name 
(either by default or by an IMPLICIT statement). A 
type statement can also include dimension 
information. 


See Section 2.3, for a more complete discussion of 
MS=FORTRAN data types; see Section 3.2, for a 
detailed description of the type statement. 


1.8 LINES 


Lines are composed of a sequence of characters. 
Characters beyond the 72nd on a line are ignored; 
lines shorter than 72 characters are assumed to be 
padded with blanks. 


The position of characters within a line in FORTRAN 
is significant. Characters in columns 1 through 5 
are recognized as statement labels, a character in 
column 6 as a continuation indicator, and characters 
in columns 7 through 72 as the FORTRAN statements 
themselves. Comments are recognized by either the 
letter "C" or an asterisk (*) in column 1, 
metacommands by a dollar sign ($) in column 1. 


With some exceptions, blanks are not significant in 
FORTRAN. Tab characters have significance in a few 
circumstances, described in Section 2.1. 


Lines in MS=FORTRAN may serve as any of the 
following: 


1. A metacommand line 

2. A comment line 

36 An initial line (of a statement) 

4. A continuation line (of a statement) 


A metacommand line has a dollar sign in column 1 anc 
controls the operation of the MS-FORTRAN Compiler. _ 


A comment. line has either a "C", a “c", or an 
asterisk in column 1, or the line is entirely blank, 
and is ignored during processing. 


An initial line of a statement has either a blank or 
a zero in column 6 and has either all blanks or a 
statement label in columns 1] through 5. 


A continuation line is any line that is not one of 
the above, has blanks in columns 1] through 5, and ir 
column 6 has a character that is not a blank or 
ZALO « 


See Section 2.2, for details on the specific uses 
and limitations on the several kinds of lines in MS~ 
FORTRAN and how statements are combined to form 
programs and compilable parts of programs. 


1.9 CHARACTERS 


In the most basic sense, a FORTRAN program is a 
sequence of characters. When these characters are 
submitted to the compiler, they are interpreted in 
various contexts as characters, names, labels, 
constants, lines, and statements. 


The characters used in an MS-FORTRAN source program 
belong to the ASCII character set, a complete 
listing of which is given in Appendix B, "ASCII 
Character Codes." Briefly, however, the character 
set may be divided into three groups: 


1. the 52 upper and lowercase alphabetic 
characters (A through Z and a through 2) 


2. the 16 digits (@ through 9) 


3. special characters (all other printable 
characters in the ASCII character set) 


See Section 2.1, “Notation,” for more information 
about the use of characters in MS=-FORTRAN. 


This chapter discusses notations such as ASCII 
characters and alphanumeric character; lines and 
statements; data types such as integer and logical; 
FORTRAN Names; and expressions like arithmetic and. 
character, 


2-1 NOTATION 


A FORTRAN source program is a sequence of ASCII 
characters. The ASCII character codes include: 


l. 52 upper and lowercase letters (A through Z and 
a through 2z) 


20 1@ digits (6, 1, 2, 3, 4, 5, 6, 7, 8, and 9) 


3. special characters (the remaining printable 
characters of the ASCII character code) 


2.1.1 ALPHANUMERIC CHARACTERS 


The letters and digits, treated as a single group, 
are called the alphanumeric characters. MS=-FORTRAN 
interprets lowercase letters as uppercase letters in 
all contexts except in character constants and 
Hollerith fields. Thus, the following user-defined 
names are all equivalent in MS=FORTRAN: 


ABCDE abcde AbCdE  aBcDe 


The collating sequence for the MS-FORTRAN characte: 
set is the ASCII sequence (see Appendix B, “ASCII 
Character Codes," for a complete table of the ASCT] 
characters). 


201 o2 BL fx 


With the exceptions noted, the blank character has 
no Significance in an MS-FORTRAN source program anc 
may therefore be used for improving readability. 
The exceptions are the following: 


1. Blanks within string constants are significant. 
2. Blanks within Hollerith fields are significant. 


3. A blank or zero in column 6 distinguishes 
initial lines from continuation lines. 


2.1.3 Tabs 


The TAB character has the following significance in 
an MS-FORTRAN source program: 


l. If the TAB appears in columns 1 through 5, the 
next character on the source line is considered 
to be in column 7. 


2. A TAB appearing in columns 7 through 72 is 
considered to be a blank (except as noted in 
point. 3.) 


3. A TAB appearing in a character constant or 
Hollerith field is not interpreted as a blank, 
but rather as a single ASCII TAB character. 
This treatment allows programs to output tabs. 


201.4 Columns 


The characters in a given line are positioned by 
columns; with the first character is in column 1, 
the second is in column 2, etc. 


The column in which a character resides is 
significant in FORTRAN. Column 1 is used for 
comment indicators and metacommand indicators. 
Columns 1 through 5 are reserved for statement 
labels and column 6 for continuation indicators. 


2.2 LINES AND STATEMENTS 


You can also think of a FORTRAN source program as a 
sequence of lines. Only the first 72 characters in 
a line are treated as significant by the compiler, 
with any trailing characters in a line ignored. 
Lines with fewer than 72 characters are assumed to 
be padded with blanks to 72 characters (for an 
illustration of this, see Section 2.3.5, which 
describes character constants). 


2.2.) INITIAL LINES 


An initial line is any line that is not a comment 
line or a metacommand line and that contains a blank 
or a zero character in column 6. The first five 
columns of the line must either be all blank or 
contain a label. With the exception of the 
statement following a logical IF, FORTRAN statements 
begin with an initial line. 


A statement label is a sequence of one to five 
digits, at least one of which must be nonzero. A 
label may be placed anywhere in columns 1 through 5 
of an initial line. Blanks and leading zeros are 
not. significant. 


Zeecd CONTE 


QUATION LINES 


A continuation line is any line that is not a 
comment line or a metacommand line and that contains 
any character in column 6 other than a blank or a 
zero, The first five columns of a continuation line 
must. be blanks, A continuation line increases the 
amount of room to write a statement. If it will not 
fit on a single initial line, it may be extended to 
include up 


A line is treated as a comment line if any one of 
the following conditions is met: 


le A ®C" (or °c") appears in column 1. 
2. An asterisk (*) appears in column 1. 
36 The line contains all blanks. 


Comment lines do not affect the execution of the 
FORTRAN program in any way. Comment lines must. be 
followed immediately by an initial line or another 
comment line. They must not be followed by a 
continuation line. 


20204 Statement Definition And Order 


A FORTRAN statement consists of an initial line, 
followed by zero to nine continuation lines. A 
statement may contain as many as 660 characters in 
columns 7 through 72 of the intial line and columns 
7 through 72 of the continuation lines. The END 


statement must be written within columns 7 through 
72 of an initial line, and no other statement may 
have an initial line that. appears to be an END 
statement. (In the following discussion, individual 
statements are simply referred to by name; see 
Chapter 3, for definitions of specific statements 
and their properties.) 


The FORTRAN language enforces a certain ordering of 
the statements and lines that make up a FORTRAN 
program unit. In addition, MS-FORTRAN enforces 
additional requirements in the ordering of lines and 
statements in an MS-FORTRAN compilation. 


In general, a compilation consists of one or more 
program units (see Chapter 5 for more information on 
compilation units and subroutines). The various 
rules for ordering statements are illustrated in 
Figure 2-1 and described in the paragraphs 
following. 
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Figure 2-1: Order of Statements within Program 
Units and Compilations 


Within Figure 2-1, the following conventions apply: 


is Classes of lines or statements above or below 
other classes must appear in the designated 
order, 


2. Classes of lines or statements may be 
interspersed with other classes that appear 
across from one another. 


A subprogram begins with either a SUBROUTINE or a 
FUNCTION statement. and ends with an END statement. 
A main program begins with a PROGRAM statement or 
any statement other than @ SUBROUTINE or FUNCTION 
statement and ends with an END statement. A 
subprogram or the main program is referred to as a 
program unit. 


Within a program unit, Statements must appear in an 
order consistent with the following rules: 


le A PROGRAM statement, if present, or a 
SUBROUTINE or FUNCTION statement, must be the 
first statement of the program unit. 


2. FORMAT statements may appear anywhere after the 
SUBROUTINE or FUNCTION statement, or PROGRAM 
statement, if present. 


3. All specification statements must precede all 
DATA statements, statement function statements, 
and executable statements. 


4. All DATA statements must appear after the 
specification statements and precede all 
statement function statements and executable 
statements. 


2 «0 


a 


All statement function statements must precede 
all executable statements. 


Within the specification statements, the 
IMPLICIT statement must precede all other 
specification statements. 


The DO66 and STORAGE metacommands, if present, 

must appear before all other statements; other 

metacommands may appear anywhere in the program 
unit. 


23 DATA TYPES 


There are five basic data types in MS~FORTRAN: 


Integer (INTEGER*2 and INTEGER*4) 

Real (REAL*4 or REAL) 

Double precision (REAL*8 or DOUBLE PRECISION) 
Logical (LOGICAL*2 and LOGICAL*4) 


Character 


The properties of, the range of values for, and the 
form of constants for each type are described in the 
following pages; memory requirements are shown in 
Table 2=1. 


fable 2-1: Memory Requirements of Microsoft 
FORTRAN Data Types 


TYPE BYTES NOTE 
LOGICAL 2 or 4 1, 3 
LOGICAL*2 2 
LOGICAL* 4 4 
INTEGER 2 or 4 1, 3 
INTEGER*2 2 
INTEGER* 4 4 
CHARACTER 1 2 
CHARACTER* n n 4 
REAL 4 3, 5 
REAL* 4 4 
REAL*8 8 3, 6 


DOUBLE PRECISION 8 


Ay BE NG SEE SEAN DAO SD IEE SD WORST SOAS RCD HTS RITA SES 


Notes for Table 2-1: 

l. Either 2 or 4 bytes are used. The default is 
4, but may be set explicitly to either 2 or 4 
with the SSTORAGE metacommand. 

2. CHARACTER and CHARACTER*1] are Synonymous. 

36 In some implementations, all numeric and 
logical data types always start on an even byte 
boundary. 

4. Maximum n is 127. 


5. REAL and REAL*4 are synonymous, 


66 REAL*8 and DOUBLE PRECISION are synonymous. 
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NOTE: On many microprocessors, the code required to 
perform l6<bit arithmetic is considerably faster and 
smaller than the corresponding code to perform 32~ 
bit arithmetic. Therefore, unless you set the MS= 
FORTRAN SSTORAGE metacommand to a value of 2, 
programs will default to 32-bit arithmetic and may 
run more Slowly than expected (see Section 6.2.8). 
Setting the SSTORAGE metacommand to 2 allows 
programs to run faster and use less code. 


2e3.1 INTEGER DATA TYPES 


The integer data type consists of a subset of the 
integers. An integer value is an exact 
representation of the corresponding integer. An 
integer variable occupies two or four bytes of 
memory, depending on the setting of the SSTORAGE 
metacommand. A 2-byte integer, INTEGER*2, can 
contain any value in the range -32767 to 32767. A 
4—byte integer, INTEGER*4, can contain any value in 
the range ~2,147,483,647 to 2,147,483,647. 


Integer constants consist of a sequence of one or 
more decimal digits or a radix specifier, followed 
by a string of digits in the range @...(radix = 1), 
where values between 18 and 35 are represented by 
the letters "A" through "Z", respectively. 


A radix specifier consists of the character "#", 
optionally preceded by a string of decimal 
characters that represent the integer value of the 
radix. If the string is omitted, the radix is 
assumed to be 16. If the radix specifier is 
omitted, the radix is assumed to be 19. 


Either format. may be preceded by an optional 
arithmetic sign, plus (+) or minus(~). Integer 
constants must. also be in range. A decimal point is 
not allowed in an integer constant. 


The following are examples of integer constants: 


123 +123 6 
G6GGB8123 32767 ~32767 
~#ABG5 2#616111 ~368ABZG7 


An integer can be specified in MS-FORTRAN as 
INTEGER*2, INTEGER*4, or INTEGER. The first two 
specify 2-byte and 4-byte integers, respectively. 
INTEGER specifies either 2=byte or 4=byte integers, 
according to the setting of the SSTORAGE metacommuand 
(the default is four bytes). 


2.3.2 THE SINGLE PRECISION REAL DATA TYPE 


The real data type (REAL or REAL*4) consists of a 
subset of the real numbers, the single precision 
real numbers. A Single precision real value is 
normally an approximation of the real number desired 
and occupies four bytes of memory. 


The range of single precision real values is 
approximately as follows: 


8.43E<37 to 3.37E+38 (positive range) 
+3. 37E438 to ~8.43E-37 (negative range) 
@ (zero) 


The precision is greater than six decimal digits. 

A basic real constant consists of: 

1. An optional sign 

26 An integer part 

3. A decimal point 

4. A fraction part 

5. An optional exponent part 

The integer and fraction parts consist of one or 
more decimal digits, and the decimal point is a 
period (.). Hither the integer part or the fraction 


part may be omitted, but not both. Some sample real 
constants are: 


123.456 +123.456 123.456 
~123. 4123 123. 
456 +2456 3456 


The exponent part consists of the letter "E" 
followed by an optionally signed integer constant of 
one or two digits. An exponent indicates that the 
value preceding it is to be multiplied by ten to the 
value of the exponent part's integer. Some sample 
exponent parts are: 


E12 E12 E+12 ES 


A real constant is either a basic real constant, « 
basic real constant followed by an exponent part, of 
an integer constant followed by an exponent part. 
For example: 


+] .668E+2 1.E-2 LEB=2 
+9 .81 168 .BE4 oBESLEt2 


All represent the same real number, one one-hundredth. 


2e303 THE DX 


BLE PRECISION REAL DATA TYPE 


The double precision real data type (REAL*8 or 
DOUBLE PRECISICGN) consists of a subset of the reali 
numbers, the double precision real numbers. This 
subset is larger than the subset for the REAL 
(REAL*4) data type. 


A double precision real value is normally an 
approximation of the real number desired. A double 
precision real value can be a positive, negative, or 
zero value and occupies eight bytes of memory. The 
range of double precision real values is . 
approximately: 


4.19D=387 to 1.67Dt3@8 (positive range) 
~1.67D+368 to -4.19D-38) (negative range) 
@ (zero) 


The precision is greater than 15 decimal digits. 


A double precision constant consists of: 
1. A optional sign 

2. #$An integer part 

3. A decimal point 

4. A fraction part 

5. A required exponent part 


The exponent uses “D" rather than "E" to distinguish 
it from single precision. The integer and fraction 
parts consist of one or more decimal digits, and the 
decimal point is a period. Either the integer part. 
or the fraction part, but not both, may be omitted. 


A double precision constant is either a basic real 
constant followed by an exponent part, or an integer 
constant. followed by an exponent part. For example: 


+1.123456789D-2 = 1.D<2 1D~2 
+9.066860001D9 166.68823865D-4 - $@612345D+2 


The exponent part consists of the letter "D" 
followed by an integer constant. The integer 
constant may have a sign as an option. An exponent 
indicates that the value preceding it is to be 
multiplied by ten to the value of the exponent 
part's integer. If the exponent is zero, it must be 
specified as a zero. 


Some sample exponent parts are: 


D12 D=12 D+12 De 


2 e 3 @ 4 LOGICAL DATA ps 


The logical data type consists of the two logical 
values .TRUE. and .FALSE.. A logical variable 
occupies two or four bytes of memory, depending on 
the setting of the SSTORAGE metacommand. The 
default is four bytes. The significance of a 
logical variable is unaffected by the SSTORAGE 
metacommand, which is present. primarily to allow 
compatibility with the ANSI requirement. that 
logical, single precision real, and integer 
variables are all the same size. 


LOGICAL*2 values occupy two bytes. The least 
significant (first) byte is either ® (.FALSE.) or 1 
(.TRUE.); the most significant byte is undefined. 
LOGICAL*4 variables occupy two words, the least 
Significant (first) of which contains LOGICAL*2 
value. The most significant word is undefined. 


203205 THE CHARACTER DATA TYPE 


The character data type consists of a sequence of 
ASCII characters. The length of a character value 
is equal to the number of characters in the 
sequence. The length of a particular constant or 
variable is fixed, and must be between 1 and 127 
characters. A character variable occupies one byte 
of memory for each character in the sequence. 


Character variables are assigned to contiguous bytes 
without regard for word boundaries. The complier, 
however, asSumes that noncharacter variables that 
follow character variables always start on word 
boundaries, 


2°14 


A character constant consists of a sequence of one 
or more characters enclosed by a pair of single 
quotation marks. Blank characters are permitted in 
character constants and are significant. The case 
of alphabetic characters is significant. A single 
quotation mark within a character constant is 
represented by two consecutive single quotation 
marks with no blanks in between. 


The length of a character constant is equal to the 
number of characters between the single quotation 
marks. A pair of single quotation marks counts as a 
single character. Some sample character constants 
are: 


fat 

8 66 

"Helpt* 

"A very long CHARACTER constant’ 
*O* *Brien’ 

eee 


The last example (‘'''') is a character constant that 
contains one apostrophe (single quotation mark). 


FORTRAN permits source lines of up to 72 columns. 
Shorter lines are padded with blanks to 72 columns. 
When a character constant extends across a line 
boundary, its value is as if the portion of the 
continuation line beginning with column 7 is 
appended to column 72 of the initial line. 


Thus, the following FORTRAN source, 


266 CH = "ABC 
X DEF® 


is equivalent to: 
266 CH = "ABC (58 blank spaces) ... DEF’ 


with 58 blank spaces between the C and D being 
equivalent to the space from C in column 15 to 
column 72 plus one blank in column 7 of the 
continuation line. Very long character constants 
can be represented in this manner. 


204 NAMES 


An MS-FORTRAN name, or identifier, consists of a 
Sequence of alphanumeric characters (the maximum is 
66 characters per line multiplied by ten lines). 
The initial character must be alphabetic; 
subsequent characters must be alphanumeric. Blanks 
are skipped. Only the first six alphanumeric 
characters are significant; the rest are ignored. 


A name denotes a user-defined or system-defined 
variable, array, or program unit. Any valid 
sequence of characters can be used for any FORTRAN 
name » 


There are no reserved names as in other languages. 
Sequences of alphabetic characters used as keywords 
by the MS=FORTRAN Compiler are not confused with 
user-defined names. The compiler recognizes 
keywords by their context and in no way restricts 
the use of user-defined names. 


Thus, a program can have, for example, an array 
named IF, READ, or GOTO, with no error (as long as 
it conforms to the rules that all arrays must obey). 
Use of keywords for user-defined names, however, 
often interferes with the readability of the 
program; consequently, the practice should be 
avoided. 


204.1 SCOPE OF FORTRAN NAMES 


The scope of a name is the range of statements in 
which that name is known, or can be referenced, 
within a FORTRAN program. In general, the scope of 
a name is either global or local, although there are 
several exceptions. A name can only be used in 
accordance with a single definition within its 
scope. The same name, however, can have different 
definitions in distinct scopes. 


A name with global scope can be used in more than 
one program unit (a subroutine, function, or the 
main program) and still refer to the same entity. 

In fact, names with global scope can only be used in 
a single, consistent manner within the same program. 
All subroutine, function subprogram, and common 
block names, as well as the program name, have 
global scope. Therefore, there cannot be a function 
subprogram with the same name as a subroutine 
Subprogram or a common data area, Similarly, no two 
function subprograms in the same program can have 
the same name. 


A name with local scope is only visible (known) 
within a single program unit. A name with a local 
scope is local only to the section in which it was 
declared. The names of variables, arrays, 
arguments, and Statement functions all have local 
Scope « 


One exception to the scoping rules is the name given 
to a common data block. You can refer to a globally 
scoped common=block name in the same program unit in 
which an identical locally scoped name appears. 

This is permitted because common block names are 
always enclosed in slashes, such aS /FROG/, and are 
therefore always distinguishable from ordinary 
names. 


Another exception to the scoping rules is made for 
statement function arguments to statement functions. 
The scope of statement function arguments is limited 
to single statement forming that statement function. 
Any other use of those names within that statement. 
function is not permitted, while any other use 
outside that statement function is acceptable. 


2.4.2 UNDECLARED FORTRAN NAMES 


The compiler can infer from context. how to classify 
a user name in an executable statement, if that name 
has not been previously encountered. 


If the name is used as a variable, the compiler 
creates an entry in the symbol table for a variable 
of that name. The type of the variable is inferred 
from the first letter of its name. Variables 
beginning with the letters I, J, K, L, M, or N are 
normally considered integers, while all others are 
considered real numbers. You can override these 
defaults, however, with an IMPLICIT statement (for 
more information, see Section 3.2.26). 


Tf an undeclared name is used as a function call, 
the compiler creates a symbol table entry for a 
function of that name. Its type is inferred in the 
same manner as the type of a variable. 


ly, a suorocutine entry is created for a newly 
icered name that is the target of a CALL 

catement. If an entry for such a subroutine or 
function name exists in the global symbol table, its 
attributes are coordinated with those of the newly 
created symbol table entry. If any inconsistencies 
are detected, such as a previously defined 
subroutine name being used as a function name, an 
error message is issued. 


205 EXPRESSIONS 
An expression is a formula for computing a value; it 
consists of a sequence of operands and operators. 
The operands may contain function invocations, 
variables, constants, or even other expressions. 
The operators specify the actions to be performed on 
the operands. 
FORTRAN has four classes of expressions: 
l. Arithmetic 
2. Character 


Be Relational 


4. Logical 


i 
t 
H 
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2e5el 2TIC EXPRESSIONS 


An arithmetic expression produces a value that is of 
type integer, or real, or double precision. The 
simplest forms of arithmetic expressions are: 


l. Integer, real, or double precision constants 


26 Integer, real, or double precision variable 
references 


3. Integer, real, or double precision array 
element references” 


4. Integer, real, or double precision function 
references 


The value of a variable reference or array element 
reference must be defined before ‘it can appear in an 
arithmetic expression. Moreover, the value of an 
integer variable must. be defined with an arithmetic 
value, rather than a statement. label value 
previously set in an ASSIGN statement. 


Other arithmetic expressions are built up from the 
simple forms in the preceding list using parentheses 
and the arithmetic operators shown in Table 22. 


Table 2-2; Arithmetic Operators 


OPERATOR OPERATION 


we Exponentiation Highest 

/ Division Intermediate 

* Multiplication Intermediate 

- Subtraction or Lowest. 
Negation 

+ Addition or Identity Lowest 


All of the operators may be used as binary 
operators, which appear between their arithmetic 
expression operands. The plus (+) and minus (-) may 
also be unary, and precede their operand. 


Operations of equal precedence, except 
exponentiation, are left-associative. 

Exponentiation is right-associative. Thus, each of 
the following expressions on the left is the same as 
the expression on the right: 


A/BRC (A/B) #C 

A®eBeeC A** (BE*C) 
Arithmetic expressions can be formed in the usual 
mathematical sense, as in most programming 
languages. However, FORTRAN prohibits two operators 
from appearing consecutively. For example, this is 
prohibited, 

Attop, 


while this is allowed: 


A®* (~B) 


Unary minus is also of lowest precedence. Thus, the 
expression -A*®**B is interpreted as -(A**B). 


You may uSe parentheses in an expression to control 
associativity and the order in which operators are 
evaluated. 


Z2eSe2 INTEGER DIVISION 


The division of two integers results in a value that 
is the mathematical quotient of the two values, 
truncated downward (i.e., toward zero). Thus, 7/3 
evaluates to 2, and (-7)/3 evaluates to -2. Both 
9/18 and 9/(~18) evaluate to zero. 


2e9e3 TYPE CONVERSIONS OF ARITHMETIC OPERANDS 

When all operands of an arithmetic expression are of 
the same data type, the value returned by the 
expression is also of that type. When the operands 
are of different data types, the data type of the 
value returned by the expression is the type of the 
highest=-ranked operand. 


The rank of an operand depends on its data type, as 
shown in the following list: 


l. INTEGER*2 (lowest) 
26 INTEGER* 4 
3.  REAL*4 


4. REAL*8 (highest) 
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For example, an operation on an INTEGER*2 and a 
REAL*4 element produces a value of data type REAL*4, 


The data type of an expression is the data type of 
the result of the last operation performed in 
evaluating the expression. 


The data types of operations are classified as 
either INTEGER*2, INTEGER*4, REAL*4, or REAL*8. 


Integer operations are performed on integer operands 
only. A fraction resulting from division is 
truncated in integer arithmetic, not. rounded. Thus, 
the following evaluates to zero, not one: 


1/4 + 1/4 + 1/4 + 1/4 


Memory allocation for the type INTEGER, without the 
*2 or *4 length specification, is dependent. on the 
use of the SSTORAGE metacommand., (For details, see 
the note at the beginning of Section 2.3, “Data 
Types," and Section 6.2.8.) 


Real operations are performed on real operands or 
combinations of real and integer operands only. 
Integer operands are first converted to real data 
type by giving each a fractional part equal to zero. 
Real arithmetic is then used to evaluate the 
expression. But in the following statement, integer 
division is performed on I and J, and a real 
multiplication on the result and xX: 


Y = (I/J)*X 


20504 ESSIONS 

A character expression produces a value that is of 
type CHARACTER. The forms of character expressions 
are: 


1. Character constants 

2. Character variable references 

3. Character array element. references 

4. Any character expression enclosed in parentheses 


There are no operators that result in character 
expressions. 


20525 RELATIONAL EXPRESSIONS 


Relational expressions compare the values of two 
arithmetic or two character expressions. An 
arithmetic value may not be compared with a 
character value, unless the SNOTSTRICT metacommand 
has been specified. In this case, the arithmetic 
expression is considered to be a character 
expression. The result of a relational expression 
is of type LOGICAL. 


Relational expressions can use any of the operators 
shown in Table 2-3 to compare values. 


fable 23: Relational Operators 


oGTo Greater than 
eGEe Greater than or equal to 


Ge a ee ad 


C@ERATOR OPERATION 
oLTo | Less than 
LE. | Less than or equal to 
EQ. | Equal to 
oNE. | Not equal to 
| 
| 


All of the relational operators are binary operators 
and appear between their operands. There is no 
relative precedence or associativity among the 
relational operands since an expression of the 
following form violates the type rules for operands: 


A LT. B NEw C 


Relational expressions may only appear within 
logical expressions. 


Relational expressions with arithmetic operands may 
have one operand of type INTEGER and one of type 
REAL. In this case, the integer operand is 
converted to type REAL before the relational 

' expression is evaluated. 


Relational expressions with character operands 
compare the position of their operands in the ASCII 

collating sequence. An operand is less than another 
' if it appears earlier in the collating sequence. If 
operands of unequal length are compared, the shorter 
operand is considered as if it were extended to the 
length of the longer operand by the addition of 
spaces on the right. 


2.5.6 LOGICAL EXPR 


SSIONS 

A logical expression produces a value that is of 
type LOGICAL. The simplest fomns of logical 
expressions are: 

1. Logical constants 

20 Logical variable references 

36 Logical array element references 

4. Logical function references 

5. Relational expressions 

Other logical expressions are built up from the 
above simple forms using parentheses and the logical 
operators of Table 2-4. 


Table 2~4: Logical Operators 


OPERATOR OPERATION PRECEDENCE 
eNOT. Negation Highest. 
oAND. Conjunction Intermediate 
2OR. Inclusive disjunction Lowest 


SD eh SATO ES. — 


SD SLED OR a IC OEY TRIER EC 


The .AND. and .OR. operators are binary operators 
and appear between their logical expression 
operands. The .NOT. operator is unary and precedes 
its operand. 


Operations of equal precedence are left-associative; 
thus, for example, 


A .AND. B .AND. C 
is equivalent to: 
(A -AND. B) .AND. C 
As an example of the precedence rules, 
eNOT. A .OR. B .AND. C 
is interpreted the same as: 
(NOT. A) OR. (B -AND. C) 


Two .NOT. operators cannot. be adjacent to each 
other, although 


A AND. .NOT. B 


is an example of an allowable expression with two 
adjacent operators. 


Logical operators have the same meaning as in 
standard mathematical semantics, with .OR. being 
nonexclusive. For example, 

eTRUE. .OR. .TRUE. 


evaluates to the values: 


o TRUE. 


When arithmetic, relational, and logical operators 
appear in the same expression, they abide by the 
following precedence guidelines: 

Le Logical (lowest) 


2. Relational (intermediate) 


3s Arithmetic (highest) 


2.528 RULES FOR EVALUATING EXPRESSIONS 


Any variable, array element, or function that is 
referred to in an expression must be defined at the 
time the reference is made. Integer variables inust 
be defined with an arithmetic value, rather than a 
statement label value as set by an ASSIGN statement. 


Certain arithmetic operations, such as dividing by 
zero, are not mathematically meaningful and are 
prohibited. Other prohibited operations include 
raising a zero-value operand to a zero or negative 
power and raising a negative-value operand to a 
power of type REAL. 


Ze 5 oD ARRAY ELEMENT REFER a Gs 


An array element reference identifies one element of an arra 
Its syntax is as follows: 


<array> (<sub> [, <sub>]...) 


<array> is the name of an array. 


<sub> is a subscript expression, that. is, an 
integer expression used in selecting a specific 
element. of an array. The number of subscript 
expressions must match the number of dimensions 
in the array declarator. The value of a 
subscript expression must be between one and 
the upper limit for the dimension it 
represents, inclusive. 


C EXAMPLE OF DIMENSION STATEMENT 
DIMENSION A(3,2) ,B(3,4) 6C(4,5) .D(5¢6) »V(3,9) 
EQUIVALENCE (X,V(1))_ (YeV(2)) 
D(I,J) = D(1,J)/PIVOT 
C(I,J) = C(I,J) + A(I,K) * B(K,J) 
READ(*,*) (V(N) ,N=1,16) 


3.1 CATEGORIES OF STATEMENTS 


Statements perfom such functions as: 


(e) 


ie] 


3 
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1) 


computing 

storing the results of computations 
altering the flow of control 
reading and writing files 


providing information for the compiler. 


FORTRAN Statements fall into two broad Classes: 
executable and nonexecutable. An executable 
statement causes an action to be performed. 
Nonexecutable statements do not in themselves cause 
operations to be performed. Instead, they specify, 
describe, or classify elements of the program, such 
aS entry points, data, or program units, 


Nonexecutable statements include the following: 


l. 


Ze 


PROGRAM, SUBROUTINE, and FUNCTION statements 
Specification statements 
The DATA statement 


The FORMAT statement 


3] 


The executable statements form a much larger group 
and may be divided into the following categories: 


1. Assignment statements 
26 Control statements 
3% I/O statements 


Sections 3.1.1 through 3.1.7 describe each of these 
types of statements in general tems, in the order 
in which they are listed here. Section 3.2 is an 
alphabetical listing of all statements. For each 
statement, the entry gives syntax and purpose, with 
remarks and examples as appropriate. Chapter 4 
provides additional information on input and output 
in MS-FORTRAN. 


3-121 PROGRAM, SUBROUTINE, AND FUNCTION STATEMENTS 


These statements identify the start of a program 
unit; all are nonexecutable. For more specific 
information, see Sections 3.2.19, 3.2.30, 3.2.35, 
and 3.2.27. , For general information on program 
units, see Chapter 5. 


3.1.2 SPECIFICATION STATEMENTS 


Specification statements in MS=-FORTRAN are 
nonexecutable. They define the attributes of user- 
defined variable, array, and function names. Table 
3-1 lists the eight specification statements, which 
are described in detail in Section 3.2. 


Table 3-1: Specification Stat 


COMMON Provides for sharing memory between 


two or more program units. 


DIMENSION Specifies that a user name is an 
array and defines the number of its 
elements. 


EQUIVALENCE Specifies that two or more variables 
or arrays share the same memory. 


EXTERNAL Identifies a user-defined name as an 
external subroutine or function. 


IMPLICIT Defines the default type for user- 
defined names. 

INTRINSIC Declares that a name is an intrinsic 
function. 

SAVE _ Causes variables to retain their 


values across invocations of the 
procedure in which they are defined. 


Type Specifies the type of user-defined 
names. 
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Specification statements must precede all executable 
statements in a program unit, but may appear in any 
order within their own group. The exception to this 
rule is the IMPLICIT statement, which must precede 
all other specification statements in a program 
unit. 


36.1.3 THE DATA be 


The DATA statement assigns initial values to 
variables. A DATA statement is an optional, 
nonexecutable statement. If present, it must appear 
after all specification statements and before any 
statement function statements or executable 
statements (see Section 3.2.8 for more 
information). 


301.4 THE FORMAT STATEMENT 


Format specifications provide explicit editing 
information for the data processed by a program. 
Format specifications may be given in a FORMAT 
statement or as character constants, (See Section 
3.2.18, for a description of the FORMAT statement, 
and Section 4.4 for additional information on 
formatted data.) 


3.1.5 ASSIGNMENT STATEMENTS 


Assignment statements are executable statements that 
assign a value to a variable or an array element. 
There are two basic kinds of assignment statements: 
computational and label. (For further information, 
see Section 3.2.1 and Section 3.2.2.) 


3.1.6 CONTROL STATEMENTS 


Control statements affect the order of execution of 
Statements in FORTRAN. The control statements in 
MS-FORTRAN are shown in Table 3-2, along with a 
brief description of the function of each. See the 
appropriate entries in Section 3.2 for further 
information on each. 


Table 3«2; Control Statements 


CALL Calls and executes a subroutine 


another program unit. 


CONTINUE Used primarily as a convenient way to 
place statement labels, particularly as 
the terminal statement in a DO loop. 


DO Causes repetitive evaluation of the 
Statements following the DO, through and 
including the ending statement. 


ELSE Introduces an ELSE block. 
ELSEIF Introduces an ELSEIF block. 
END Ends execution of a program unit. 


ENDIF Marks the end of a series of statements 
following a block IF statement. 


GOTO Transfers control elsewhere in the 
program, according to the kind of GOTO 
statement used (assigned, computed, or 
unconditional) . 


IF Causes conditional execution of some other 
statement (s), depending on the evaluation 
of an expression and the kind of IF 
statement used (arithmetic, logical, or 
block). 


PAUSE Suspends program execution until the 
RETURN key is pressed. 


RETURN Returns control to the program unit that 
called a subroutine or function. 


STOP FG nniinates a program. 
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3.1.7 %/0 STATEME 


I/O statements transfer data, perform auxiliary 1/0 
operations, and position files. Table 3.3 lists the 
MS=-FORTRAN I/O statements (each of which is 
described in detail in Section 3.2.) 


Table 3-3: 1/0 Statements 


BACKSPACE Positions the file connected to the 


specified unit to the beginning of 
the previous record. 


CLOSE Disconnects the unit specified and 
prevents subsequent I/O from being 
directed to that unit. 


ENDFILE Writes an end-of-file record on the 
file connected to the specified unit. 


OPEN Associates a unit number with an 
external device or with a file on an 
external device. 


READ Transfers data from a file to the 
items in an <iolist>. 


REWIND Repositions a specified unit to the 
first record in the associated file. 


WRITE Transfers data from the items in an 
<iolist> to a file. 
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In addition to these I/O statements, there is an I/O 
intrinsic function EOF (<unit-spec>). EOF function 
returns a logical value that indicates whether any 
data remains beyond the current position in the file 
associated with the given unit specifier. See 
Section 5.3.2 for information about this function. 


3.2 STATEMENT DIRECTORY 


The rest of this chapter is an alphabetical listing 
of all MS-FORTRAN statements, giving syntax and 
function, with notes and examples as necessary. 


3.2.1 THE ASSIGN STATEMENT (LABEL ASSIGNMENT) 


Syntax ASSIGN <label> TO <variable> 


Purpose Assigns the value of a format or statement 
label to an integer variable. 


Remarks <label> is a format label or statement 
label. 


<variable> is an integer variable. 


Execution of an ASSIGN statement sets the 
integer variable to the value of the 
label. The label can be either a format 
or a Statement label and must appear in 
the same program unit as the ASSIGN 
statement. 


When used in an assigned GOTO statement, a 
variable must currently have the value of 
a Statement label. When used as a format. 
specifier in an input/output statement, a 
variable must have the value of a format 
statement label. The ASSIGN statement is 
the only way to assign the value of a 
label to a variable. 


The value of a label is not necessarily 
the same as the label number. For 
example, the value of IVBL in the 
following is not necessarily 406: 


ASSIGN 468 TO IVBL 


Hence, the variable is undefined as an 
integer; it cannot be used in an 
arithmetic expression until it has been 
redefined as such (by computational 
assignment or a READ statement). 


3.202 THE ASSIGNMENT STATEMENT (COMPUTATIONAL) 


Syntax 


Purpose 


Remarks 


<variable> = <expression> 


Evaluates the expression and assigns the 
resulting value to the variable or array 
element. specified. 


<variable> is a variable or array element 
reference. 


<expression> is any expression. 


The type of the variable or array element 
and the type of expression must be 
compatible. 


l. 
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If the type of the righthand side is 
numeric, the type of the left~hand 
Side must be numeric, and the 
statement is called an arithmetic 
assignment statement. 


If the type of the right-hand side is 
logical, the type of the left-hand 
Side must be logical, and the 
Statement is called a logical 
assignment statement. 


If the type of the right-hand side is 
character, the type of the left-hand 
side must also be character, and the 
statement is called a character 
assignment statement. Ifyou have 
specified the SNOTSTRICT metacommand, 
however, the type of left-hand side 
may be numeric, logical, or 
character; the statement is still 
called a character assignment 
statement. 


If the types of the elements of an 
arithmetic assignment statement are 
not. identical, the value of the 
expression is automatically converted 
to the type of the variable. The 
converSion rules are given in Table 
3-4 (for conversion to integer 
values) and Table 3-5 (for conversion 
to real values). 


In both tables, the most significant 
portion is the high order, and the 
least significant is the low order. 
Also in both tables, the value 
converted (E) is shown in the second 
and third columns, while the type of 
the variable (V) is listed in column 
one. 


Table 3-4: Conversion of Integer Values in V = E 


V\.E _INTSGER*2 INTEGER*4 
INTEGER*2 Assign E to V. Assign least signi- 


ficant portion of E 
to V; most significant 
portion is lost. 


INTEGER*4 Assign E to least Assign E to V. 
significant portion 
of V; most signifi- 
cant portion is 
sign extended. 


REAL*4 Append fraction Append fraction 
(.8)+ to E and (.8) to E and 
assign to V.* assign to V.* 

REAL*8 Append fraction Append fraction 
(.8) to E and (.8) to E and 
assign to V.* assign to V.* 


examen ea: SP ct AS, 


ea 


* "fraction (.8)" means a zero fractional part. 
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‘fable 3<5: 


Type Conversion of Real Values in V = E 


INTEGER*2 ‘Truncate E to Truncate E to 
INTEGER*2 and INTEGER*2 and 
assign to V. assign to V. 
INTEGER*4 Truncate E to Truncate E to 
INTEGER* 4 and INTEGER*4 and 
assign to V. assign to V. 
REAL 4 Assign E to V. Assign most signi- 
ficant portion of 
E to V; least signi-=- 
ficant portion is 
rounded. 
REAL*8 Convert E to Assign E to V. 


equivalent. REAL*8 
form and assign 


to V, 
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For character assignments, if the 
length of the expression does not 
match the size of the variable, the 
expression is adjusted, in the 
foilowing manner, so tnat it does 
match: 


alge 


lf the expression is shorter 
than the variable, the 
expression is padded with enough 
blanks on the right before the 
assignment. takes place to make 
the sizes equal, 


I£ the expression is longer than 
tne variable, characters on the 
right are truncated to make the 
Sizes the same. 
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3e2o.3 THE BACKSPACE STATE 


syntax 


Purpose 


Remarks 


Logical expressions of any Size can 
be assigned to logical variables of 
any Size without affecting the value 
of the expression. Integer anc real 
expressions, however, may not be 
essigred to logical variables; and 
logical expressions way not be 
assigned to integer or real 
variabies, 


BACKSPACE <unit-spec> 


Positions the file connected to the 
specified unit at the beginning of the 
preceding record. 


<unit-spec> is a required unit specifier; 
it must not be an internal unit specifier. 
See Section 4.3.1] for more information 
about unit specifiers and other elements 
of I/O statements. 


1. I£ there is no preceding record, the 
file position is not changed. 


2. If the preceding record is the 
endfile record, the file is 


positioned before the endfile record, 


3e If the file position is in the middle 
ef the record, BACKSPACE repositions 
to the start of that record. 


4, If the file is a binary file, the 
BACKSPACE repositions to the 
preceding byte. 


Examples BACKSPACE 5 


BACKSPACE LUNIT 


3.2.4 THE CALL STATEMENT 
Syntax CALL <sname> [([<arg> [, <arg>]...])] 


Purpose Calls and executes a subroutine from 
another program unit. 


Remarks <sname> is the name of the subroutine to 
be called. 


<arg> is an actual argument, which can be 
any of the following: 


l. An expression 

2. A constant (or constant expression) 
3. A yariable 

4. An array element 

56 Ar array 

6. & subroutine 

7. A external function 


8. An intrinsic function permitted to be 
passed as an argument 


The actual arguments in the CALL statement 
must agree with the corresponding formal 
arguments in the SUBROUTINE statement, in 
order, in number, and in type or kind. 


The compiler will check for correspondence 
if the formal arguments are known. To be 
known, the SUBROUTINE statement. that 
defines the formal arguments must precede 
the CALL statement in the current 
compilation. 


In addition, if the arguments are integer 
or logical values, agreement in size is 
required, according to the following 
rules: 


l. If the formal argument is unknown, 
its size is determined by the 
SSTORAGE metacommand (except as noted 
in rule 5 of this list). I£ SSTORAGE 
is not specified, the default is 
SSTORAGE: 4. 


2. If the actual argument is a constant 
(or constant expression), and the 
size of the actual argument is 
smaller than the size of the formal 
argument, a temporary variable the 
size of the constant will be created 
for the actual argument. If the 
actual argument is larger, an error 
is generated: 


95 argument type conflict 


36 If the actual argument is an 
expression and the size of the actual 
argument is smaller than the size of 
the formal argument, then a temporary 
variable the size of the formal 
argunent is created for the actual 
argument. If the actual argument is 
larger, the same error is generated 
as in rule 2. 
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If the actual argument is an array or 
a function, or if the actual argument 
is an array element and the formal 
argument. an array, the compiler will 
not check for agreement. in size. 


If the actual argument. is a variable 
or an array element and the fermal 
argument. is unknown, the size of the 
formal argument is assumed to be the 
same size as the size of the actual 
argument. 


Thus, you can call separately 
compiled subroutines whose formal 
arguments differ from the size 
determined by <he $STORAGE 
metacommand im effect when tie CALL 
is conpiled. However, agreement in 
size is still required, and :t is 
your responsibility to ensure this 
agreement... 


If the formal argument is known, then 
an actual argument that is a variable 
or an array e.ement is treated as an 
expression; ‘hat is, a temporary 
variable for “he actual argunernt is 
created if the actual argument is 
smaller than «he formal argument. 
Otherwise, the same error occurs as 
in rule 2. 


If the SUBROUTINE statement has no 
formal argumerts, then a CALL 
statement referencing that. subroutine 
must not. have any actual arguments. 

A pair of parentheses, however, may 
follow the subroutine name. 


Execution of a CALL statement 
proceeds as follows: 


1. All arguments that are 
expressions are evaluated. 


2e All actual arguments are 
associated with their 
corresponding formal arguments, 
and the body of the specified 
Subroutine is executed. 


3. Control is returned to the 
Statement following the CALL 
statement upon exiting the 
subroutine, by executing either 
a RETURN statement or an END 
statement in that subroutine. 


A subroutine can be called from any 
program unit. FORTRAN, however, does 
not permit recursive subroutine 
calls; that is, a subroutine can 
neither call itself directly nor call 
another subroutine that results in 
that subroutine being called again 
before it returns control to its 
caller. 


Example C EXAMPLE OF CALL STATEMENT 
IF (IERR .NE. 9) CALL ERROR (IERR) 
END 


SUBROUTINE ERROR (TERRNO) 
WRITE (*, 268) IERRNO 

266 FORMAT(1X, "ERROR', 15, "DETECTED') 
END 


fef25 THE CLOSE STATEMENT 
bede CLOSE (<unit-spec> {, STATUS='<status>']) 


D:,pose Disconnects the unit specified and 
prevents subsequent I/O from being 
directed to that unit (unless the same 
unit numcer is reopened, possibly 
associated with a different file or 
device). The file is discarded if the 
Statement includes STATUS='DELETE'. 


canarks <unit=spec> is a required unit specifier. 
It must. appear as the first argument; it 
must. not be an internal unit specifier. 
See Section 4.3.1] for more information 
about unit specifiers and other elements 
of I/5 statements. 


<stacus> is an optional argument and may 
be either KEEP or DELETE. This option i. 
a character constant and must be enclosed 
in single quotation marks. 


If <status> is not specified, the default 
is KEEP, except for files opened as 
scvatch files, which have DELETE as the 
detault. Se rateh files are always deleted 
upon normal x rogram termination, and 
specifying STATUS=! KEEP’ for scratch or 
tcamporary files has no effect. 


i] 


CLOSE for unit zero has no effect, since 
“he CLOSE cveration is not. meaningful for 
che keyboard and screen. Opened files co 
not have to be explicitiy closed. Normal 
termination of an MS=FORTRAN program will 
close each file with its default status. 
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Example 


This deletes an existing file: 


C CLOSE THE FILE OPENED IN OPEN EXAMPLE, 
C DISCARDING THE FILE. 
CLOSE (7 , STATUS=" DELETE’ ) 


3.2.6 THE COMMON STATEMENT 


syntax 


Purpose 


Remarks 


COMMON [/{<cname>]/] <nlist> 
{{,] /{<cname>]/ <nlist>]... 


Provides for sharing memory between two or 
more program units. Such program units 
can manipulate the same datum without 
passing it as an argument. 


<cname> is a common block name. If a 
<cename> is omitted, then the blank common 
block is assumed. 


<nlist> is a list of variable names, array 
names, and array declarators, separated by 
commas. Formal argument names and 
function names cannot appear in a COMMON 
statement. 


In each COMMON statement, all variables 
and arrays appearing in each <nlist> 
following a common block name are declared 
to be in that common block. Omitting the 
first <cname> specifies that all elements 
in the first <nlist> are in the blank 
common block. 


Any common block name can appear more than 
once in COMMON statements in the same 
program unit. All elements in all 
<nlist>s for the same common block are 
allocated in that common memory area, in 
the order they appear in the COMMON 
statement (s). 
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The current implementation of MS=-FORTRAN 
restricts the occurrence of noncharacter 
variables to even byte addresses, which 
may affect the association of character 
and noncharacter variables within a 
COMMON. Because of the order requirement, 
the compiler cannot adjust the position of 
variables within a COMMON to comply with 
the even address restriction. The 
compiler will generate an error message 
for those associations which result in a 
conflict. 


The length of a common block is equal to 
the number of bytes of memory required to 
hold all elements in that common block. 
If several distinct program units refer to 
the same named common block, the common 
DOlock must. be the same length in each 
program unit. Blank common blocks, 
however, can have different lengths in 
different program units. The length of 
the blank common block is the maximum 
length. 


Example C EXAMPLE OF BLANK AND 
PROGRAM MYPROG 
COMMON I, J, X, K(18) 
COMMON /MYCOM/ A(3) 


NAMED COMMON BLOCKS 


END 

SUBROUTINE MYSUB 
COMMON I, J, X, K(i@) 
OMMON /MYCOM/ A(3) 
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3.2.7 THE CONTINUE STATEMENT 


syntax 
Pur pose 


Remarks 


CONTINUE 
Execution has no effect on the program. 


The CONTINUE statement is used primarily 
aS a convenient point for placing a 
statement label, particularly as the 
terminal statement in a DO loop. 


Example C EXAMPLE OF CONTINUE STATEMENT 


D016, l=1, 18 
TARRAY(I) = 6 
16 CONTINUE 


3-2-8 THE DATA STATEMENT 


Syntax 


Purpose 


Remarks 


DATA <nlist> /<clist>/ [[,] <nlist> 
/<clist>/]... 


Assigns initial values to variables. 


A DATA statement is an optional, 
nonexecutable statement. If present, it 
must appear after all specification 
statements and prior to any statement 
function statements or executable 
statements. 


<nlist> is a list of variables, array 
elements, or array names. 


<clist> is a list of constants, or a 
constant preceded by an integer constant 
repeat factor and an asterisk, such as: 


5*3.14159 3**Help’ 166*6 
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A repeat factor followed by a constant is 
the equivalent of a list of all constants 
having the specified value and repeated as 
often as specified by the repeat constant. 


There must be the same number of values in 
each <clist> as there are variables or 
array elements in the corresponding 
<nlist>. The appearance of an array in an 
<nlist> is equivalent to a list of all 
elements in that array in memory sequence 
order. Array elements must be indexed 
only by constant subscripts. 


The type of each noncharacter element in a 
<clist> must. be the same as the type of 
the corresponding variable or array 
element in the accompanying <nlist>. With 
the SNOTSTRICT metacomnand in effect, 
however, a character element in a <clist> 
can correspond to a variable of any type. 


The character element must have a length 
that. is less than or equal to the length 
of that variable or array element. If the 
length of the constant is shorter, it is 
extended to the length of the variable by 
adding blank characters to the right. A 
single character constant. cannot be used 
to define more than one variable or even 
more than one array element. 


Only local variables and array elements 
can appear in a DATA statement. Formal 
arguments, variables in common, and 
function names cannot be assigned initial 
values with a DATA statement. 
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REAL COEF (4), EPS (2) 


DATA N /6/, ORDER /3/ 
DATA ALPHA /*A'/ 


DATA COEF /1.0,2*3.8,1-6/, EPS(1) /.86861/ 


3.2.9 THE DIMENSION STATEMENT 


Syntax 


Purpose 


Remarks 


DIMENSION <array> (<dim>) [, <array> 
(<dim>)]..- 


Specifies that a user name is an array and 
defines the number of its elements. 


<array> is the name of an array. 

<dim specifies the dimensions of the 
array and is a list of one to three 
dimension declarators separated by commas. 
The number of dimensions in the array is 
the number of dimension declarators in the 
array declarator. The maximum number of 
dimensions is three. The maximum size of 
an array is 65,366 bytes. The maximum 
size of an dimension is 32,767 bytes. 

A dimension declarator can be: 

1. an unsigned integer constant. 


2. a user name corresponding to a 
nonarray integer formal argument 


36 an asterisk 
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A dimension declarator specifies the upper 
bound of the dimension. The lower bound 
is always one. 


If a dimension declarator is an integer 
constant, then the array has the 
corresponding number of elements in that. 
dimension. An array has a constant size 
if all of its dimensions are specified by 
integer constants. 


If a dimension declarator is an integer 
formal argument, then that dimension is 
defined to be of a size equal to the 
initial value of the integer argument upon 
entry to the subprogram unit at execution 
time. In such a case, the array is called 
an adjustable~size array. 


If the dimension declarator is an 
asterisk, the array is an assumed~size 
array and the upper bound of that 
dimension is not specified. 


All adjustable and assumed-size arrays 
must also be formal arguments to the 
program unit in which they appear. 
Furthermore, an assumed~size dimension 
declarator may only appear as the last 
dimension in an array declarator. 


Array elements are stored in column=major 
order; the leftmost subscript changes most 
rapidly as the array is mapped into 
contiguous memory addresses. 
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For example, the following statements 


INTEGER*2 A (2, 3) 
DATA A /1l, 2, 3, 4, 5S, 6/ 


would result in the following mapping (assuming A is 
placed at location 1908 in memory): 


Array Element Address value 


A (1, 1) 1880 1 
A (2, 1) 1882 2 
A (1, 2) 1804 3 
A (2, 2) 1986 4 
A (1, 3) 1688 5 
A (1, 3) 166A 6 


Example DIMENSION A (2,3), V (18) 
CALL SUBR (A,2,V) 


SUBROUTINE SUBR (MATRIX, ROWS, VECTOR) 
REAL MATRIX, VECTOR 

INTEGER ROWS 

DIMENSION MATRIX (ROWS,*), VECTOR (18), 
+LOCAL (2,4,8) 

MATRIX (1,1) = VECTOR (5) 


END 


3220.18 THE DO STATEMENT 


Syntax DO <slabel> [,] <variable> = <exprl>, 
<expr2> [, <expr3>] 


Purpose Repeatedly evaluates the statements 


following the DO, through and including 
the statement with the label <slabel>. 
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Remarks 


<slabel> is the statement label of an 
executable statement. 


<variable> is an integer variable. 


<exprl>, <expr2>, <expr3> are integer 
expressions. 


The label referred to must appear after 
the DO statement. and be contained in the 
same program unit. The specified 
statement is called the terminal statement 
of the DO loop and must not be an 
unconditional GOTO, assigned GOTO, 
arithmetic IF, block IF, ELSEIF, ELSE, 
ENDIF, RETURN, STOP, END, or DO statement. 
If the terminal statement is a logical IF, 
it may contain any executable statement 
except those not permitted inside a 
logical IF statement. 


The range of a DO loop begins with the 
statement that follows the DO statement 
and includes the terminal statement of the 
DO loop. 


The following restrictions affect the 
execution of a DO statement: 


1. If a DO statement. appears in the 
range of another DO loop, its range 
must be entirely contained within the 
range of the enclosing DO loop, 
although the loops may share a 
terminal statement. 


2. If a DO statement appears within an 
IF, ELSEIF, or ELSE block, the range 
of the associated DO loop must be 
entirely contained in the particular 
block. 
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If a block IF statement appears 
within the range of a DO loop, its 
associated ENDIF statement must also 
appear within the range of that. DO 
loop. 


way by the statements within the range of 


\ ee DO variable may not be modified in any 
& 


the DO loop associated with it. Jumping 
into the range of a DO loop from outside 
its range is not permitted. (A special 
feature, however, added for compatibility 
with earlier versions of FORTRAN, does 
permit "extended range“ DO loops. See 
Section 6.2.2 for more information.) 


The execution of a DO statement sets the 
following process in motion: 


l. 


The expressions <exprl>, <expr2>, and 
<expr3> are evaluated. If <expr3> is 
not present, it is assumed that 
<expr3> evaluated to one. 


The DO variable is set to the value 
of the expression, <exprl>. 


The iteration count for the loop is: 
MAXG ( ( (expr 2~expr1+expr3) /expr 3) ,@) 


The iteration count may be zero if 
either of the following is true; 


a. <exprl> is greater than <expr2> 
and <expr3> is greater than zero 


b. <exprl> is less than <expr2> and 
<expr3> is less than zero 
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If the $DO66 metacommand is in 
effect, however, the iteration count. 
is at least one. See Section 6.2.2 
for more information about this 
feature. 


The iteration count is tested, and, 
if it exceeds zero, the statements in 
the range of the DO loop are 
executed. 


Following the execution of the terminal 
statement of a DO loop, these steps take 
place: 


l. 


The value of the DO variable is 
incremented by the value of <expr3> 
that was computed when the DO 
statement was executed. 


The iteration count is decremented by 
one. 


The iteration count is tested, and if 
it exceeds zero, the statements in 
the range of the DO loop are executed 
again. 


The value of the DO variable is well- 
defined, regardless of whether the DO loop 
exits because the iteration count becomes 
zero, or because of a transfer of control 
out of the DO loop. 
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Example The following shows the final value of 4 DO 
variable: 


C EXAMPLE OF DO STATEMENTS 


C DISPLAY THE NUMBERS 1 TO 11 ON THE SCREEN 
DO 206 I=1,19 

206 4 =WRITE(*,"(15)")I 
WRITE (*,* (15) *) I 


C INITIALIZE A 2@-ELEMENT REAL ARRAY 
DIMENSION ARRAY (29) 
D1lI=1, 2 

1 ARRAY (I) = 6.8 


C PERFORM A FUNCTION 11] TIMES 
DO 2, I = ~38, -68, -3 
J = 1/3 
J=-9-J 
ARRAY (J) = MYFUNC (I) 

2 CONTINUE 


3e2.11 THE ELSE STATEMENT 
Syntax ELSE 


Purpose Marks the beginning of an ELSE block. 
Execution of the statement itself has no 
effect on the program. 


Remarks The associated ELSE block consists of all 
of the executable statements (possibly 
none) that follow the ELSE statement, up 
to but not including the next ENDIF 
statement. at the same IF-level as this 
ELSE statement. The matching ENDIF 
statement inust appear before any 
intervening ELSE or ELSEIF statements of 
the same IF-level. (See Section 3.2.25 
for a discussion of IF-levels.) 
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Transfer of control into an ELSE block 
from outside that block is not permitted, 


READ (*,"(A)") C 
IF (C .EQ. 'A‘) THEN 
CALL ASUB 
ELSE 
CALL OTHER 
ENDIF 


3-22.12 THE ELSEIF STATEMENT 


syntax 
Pur pose 


Remarks 


ELSEIF (<expression>) THEN 
Causes evaluation of the expression. 


<expression> is a logical expression. If 
its value is true and there is at least 
one statement in the ELSEIF block, the 
next statement executed is the first 
statement of the ELSEIF block. 


The associated ELSEIF block consists of 
all the executable statements (possibly 
none) that follow, up to the next ELSEIF, 
ELSE, or ENDIF statement that has the same 
iF-level as this ELSEIF statement. 


Following the execution of the last 
Statement in the ELSEIF block, the next 
statement to be executed is the next ENDIF 
statement at the same IF-level as this 
ELSEIF statement. 
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If the expression in this ELSEIF statement 
evaluates to true and the ELSEIF block has 
no executable statements, the next 
Statement executed is the next ENDIF 
statement at the same IF-level as the 
ELSEIF statement. If the expression 
evaluates to false, the next statement 
executed is the next ELSEIF, ELSE, or 
ENDIF statement that has the same IF=level 
as the ELSEIF statement. (See Section 
3.2.25 for a discussion of IF-levels.) 


Transfer of control into an ELSEIF block fron 
outside that block is not permitted. 


Example CHARACTER C 


READ (*,'(A)") C 

IF (C .EQ. ‘A*) THEN 
CALL ASUB 

ELSEIF (C .EQ. 'X') THEN 
CALL XSUB 

ELSE 
CALL OTHER 

ENDIF 


3.2.13 THE END STATEMENT 
Syntax END 


Purpose In a subprogram, has the same effect as a 
RETURN statement; in the main program, 
terminates execution of the program. 


Remarks The END statement mnust appear as the last 
statement in every program unit. Unlike 
other Statements, an END statement must 
appear alone on an initial line, with no 
label. No continuation lines may follow 
the END statement. No other FORTRAN 
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statement, such as the ENDIF statement, 
nay have an initial line that appears to 
be an END statement. 


Example C EXAMPLE OF END STATEMENT 


C END STATEMENT MUST BE LAST STATEMENT 
C IN A PROGRAM 

PROGRAM MYPROG 

WRITE (*, ° (16H HI WORLD!) *) 

END 


3.2.14 THE ENDPILE STATEMENT 


syntax 


Purpose 


Remacks 


ENDFILE <unit-spec> 


Writes an end-of-file record as the next. 
record of the file connected to the 
specified unit. 


<unit=spec> is a required external unit 
specifier. See Section 4.3.1 for more 
information about unit. specifiers and 
other elements of I/O statements. 


After writing the end-of~file record, 
ENDFILE poSitions the file after the end- 
of-file record. This prohibits further 
sequential data transfer until after 
execution of either a BACKSPACE or REWIND 
statement. 


An ENDFILE on a direct access file makes 


all records written beyond the position of 
the new end-of—file disappear. 


Soon 


Example 


WRITE (6,*) X 
ENDFILE 6 
REWIND 6 
READ (6,*) Y 


3.2.15 THE ENDIF STATEMENT 


Syntax 


Purpose 


Remarks 


ENDIF 


Terminates a block IF statement. 
Execution of an ENDIF statement itself has 
no effect on the program. 


There must be a matching ENDIF statement 
for every block IF statement in a program 
unit, to identify which statements belong 
to a particular block IF statement. See 
Section 3.2.25 for discussion and examples 
of block IFs. 


Example IF (I .LT. @) THEN 


X = «I 
Y=-I 
ENDIF 


3.2.16 THE EQUIVALENCE STATEMENT 


Syntax 


Purpose 


Remarks 


EQUIVALENCE (<nlist>) [, (<nlist>)]... 


Specifies that two or more variables or 
arrays are to share the same memory. 


<nlist> is a list of at least two 
elements, separated by commas. An <nlist> 
may include variable names, array names, 
or array element names; argument names 
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are not allowed. Subscripts must be 
integer constants and must. be within the 
bounds of the array they index. No 
automatic type conversion occurs if the 
shared elements are of different types. 


An EQUIVALENCE statement specifies that 
the memory sequences of the elements that 
appear in the list <nlist> must have the 
same first memory location. Two or more 
variables are said to be associated if 
they refer to the same actual memory. 
Thus, an EQUIVALENCE statement causes its 
list of variables to become associated. 
An array name, if present in an 
EQUIVALENCE statement, refers to the first 
element of the array. 


You cannot. associate character and 
noncharacter entities when the SSTRICT 
metacommand is in effect. (SNOTSTRICT is 
the default). See the odd=byte boundary 
restriction described in number 3 in the 
Following list. 


Associated character entities may overlap, 
as in the following exanple: 


RACTER A*4, B*4, C(2)*3 
EQUIVALENCE (A,C(1)), (BsC(2)) 


The above example can be graphically 
illustrated as follows: 


161162} 63/641 65/46167| 
sae 2 eae | 


[penetrance 
IC (1) ~-|--C. (2) ——| 


Restrictions 


l. You cannot force a variable to occupy 
more than one distinct memory 
location; nor can you force two or 
more elements of the same array to 
occupy the same memory location. For 
example, the following statement 
would force R to occupy two distinct 
memory locations or S(1) and S(2) to 
occupy the same memory location: 


C THIS IS AN ERROR 
REAL R,S(16) 
EQUIVALENCE (R,S(1)) -(R,S(5)) 


2 An EQUIVALENCE statement cannot. 
specify that consecutive array 
elements not be stored in sequential 
order. The following, for example, 
is not permitted: 


C THIS IS ANOTHER ERROR 
REAL R(1@) ,S(19) 
EQUIVALENCE (R(1) ,S(1)),(R(5) ,S(6 


3. You cannot equivalence character and 
noncharacter entities so that the 
noncharacter entities can start on an 
odd=byte boundary. 


For entities not in a common block, 
the conpiler will attempt to align 
the noncharacter entities on word 
boundaries. An error message will be 
issued if such an alignment is not 
possible because of multiple 
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following would result ir an error, 
Since it. is not possible far both 
variables A and B to be word aligned: 


CHARACTER*1] C1 (18) 
REAL A,B 

EQUIVALENCE (A,C1(1)) 
EQUIVALENCE (B,C1(2)) 


For entities in a common block, since 
positions are fixed, it is your 
responsibility to assure word 
alignment for the noncharacter 
entities. An error message will be 
issued for any that are not word 
aligned, 


An EQUIVALENCE statement cannot 
associate an element of type 
CHARACTER with a noncharacter element 
in a way that causes the noncharacter 
element. to be allocated on an odd 
byte boundary. There are no boundary 
restrictions, however, for 
equivalencing of character variables. 


When EQUIVALENCE statements and 
COMMON Statements are used together, 
several additional restrictions 


apply: 


ae An EQUIVALENCE statement cannot 
cause memory in two different 
common blocks to be shared, 


De An EQUIVALENCE statement can 
extend a common block by adding 
memory elements Following the 
common block, but not preceding 
the common block. 
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Cu Extending a named common block 
with an EQUIVALENCE statement. 
must. not make its length 
different from the length of tne 
ramed common block in other 
program units. 


For example, the following is not 
pemitted because it extencs the 
common block by adding mamery 

preceding the start of tne block: 


C (HIS IS A MORE SUBTLE ERROR 
ee /BBCDE/ R(18) 
REAL =?) 

UIVALENCE (R(1) ¢S(i8)) 


Example C CORRES 


“TER 2 NAME, FIRST, MIDDLE, LAST 
SION NAME (60), FIRST (20), 

1 MIDDLE (26) , LAST (26) 
EQUIVALENCE (NAME(1), FIRST(1)), 

1 (NAME (21) ,MIDDLE(1})} , 

é (NAME (41), LAST(1)) 


ets 


3.2017 THE EXTE) NAL STATEMENT 
Syntax EXTERN, L <name> [, <name>]... 


Purpose Identivies a user-defined name as an 
extern. 1 subroutine or function. 


Remarks <name> is the name of an external 
Ssubrowline or function. 


Giving a name in an EXTERNAL statement 
declares it as an external procedure, 
Statement function names cannot appear in 
an EXTERNAL statement. If an intrinsic 
function name appears in an EXTERNAS 
Statement, thar name becomes the 


an external procedure, and the 
corresponding intrinsic function can no 
longer be called from that program unit. 
A user name can only appear once in an 
EXTERNAL statement. in any given program 
unit. 


In assembly language and MS=Pascal, EXTERN 
means that an object is defined outside 
the current compilation or assembly unit. 
This is unnecessary in MS~FORTRAN since 
standard FORTRAN practice assumes that any 
object referred to but not defined in a 
compilation unit is defined externally. 


In FORTRAN, therefore, EXTERNAL is used 
primarily to specify that a particular 
user-defined rame is a Subroutine or 
function to be used as a procedural 
parameter. EXTERNAL may also indicate 
that a user-defined function is to replace 
an intrinsic function of the same name. 


Example C EXAMPLE OF EXTERNAL STATEMENT 


EXTERNAL MYFUNC, MYSUB 
C MYFUNC AND MYSUB ARE PARAMETERS TO CALC 
CALL CALC (MYFURC, MYSUB) 


© EXAMPLE OF A USER-DEFINED FUNCTION 
C REPLACING AN INTRINSIC EXTERNAL SIN 
X = SIN (4.,4.2,37) 


3.2.18 THE FORMAT STATEMENT 


Syntax 


Pur pose 


FORMAT <format-spec> 
Used in conjunction with formatted 1/0 


Statements, provides information that 
directs the editing of data. 
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Remarks 


<format=spec> is a format specification, 
which provides explicit editing 
information. The format specification 
must be enclosed in parentheses and may 
take one of the following forms: 


{<r>] <repeatable edit descriptor> 
<nonrepeatable edit descriptor> 
[<z>] <format specification> 


The <r>, if present, is a nonzero, 
unsigned, integer constant called a repeat © 
specification. 


Up to three levels of nested parentheses 
are permitted within the outermost level 
of parentheses. 


Edit descriptors, both repeatable and 
nonrepeatable, are listed in Table 3.6 and 
described in more detail in Section 4.4.2. 


You may omit the comma between two list 
items if the resulting format 
specification is not ambiguous; for 
example, after a P edit descriptor or 
before or after the slash (/) edit 
descriptor. 


FORMAT statements must be labeled and, 


like all nonexecutable statements, cannot 
be the target. of a branching operation. 
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Table 3-6: Edit Descriptors 


REPEATABLE 


I<w> 
G<w> .<d> 


G<w>.<d>F<e> 


F<w>.<d> 
E<w>.<d> 


E<w> .<d>E<e> 


D<w>.<d> 
L<w> 
A[<w>] 


NONREPEATABLE 
"yxx! (character constants) 
<p>Hxxx (character constants) 
<m>X (positional editing) 
/¢ (terminate record) 
\, (don't terminate record) 
¢k>P (scale factor) 
BN (blanks as blanks) 
BZ (blanks as zeros) 


Sep CRON ott EATS CAH WD CSD REGAN ALS CN <I OE AO HON OE AIT A HOE COT L-CS CN SD ACN A HAGE AD Gon ME CRP RL 


For the repeatable edit descriptors: 


A, D, E, F, G, I, and L indicate the 
manner of editing. 


<w> and <e> are nonzero, ursigned, 
integer constants. 


<d> is an unsigned integer constant. 


For the nonrepeatable edit 
descriptors: 


', H, X, /, \, P, BN, and BZ indicate 
the manner of editing. 


x is any ASCII character. 


<n> is a nonzero, unsigned, integer 
constant. 


<k> is an optionally signed integer 
constant. 


See Section 4.4 for further 


information on edit descriptors and 
formatted I/0. 
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3.2.19 THE FUNCTION STATEMENT (EXTERNAL) 


Syntax [<type>] FUNCTION <fname> ([<farg> 
[, <farg>]...]) 


Purpose Identifies a program unit as a function 
and supplies its type, name, and optional 
formal parameter(s). 


Remarks <type> is one of the following: 


INTEGER 
INTEGER* 2 
INTEGER* 4 

REAL 

REAL* 4 

REAL*8 

DOUBLE PRECISION 
LOGICAL*2 
LOGICAL* 4 


<fname> is the user-defined name of the 
function. 


<farg> is a formal argument name. 


The function name is global, but it is 
also local to the function it names. If 
<type> is omitted from the FUNCTION 
Statement, the function's type is 
determined by default and by any 
subsequent. IMPLICIT or type statements 
that would determine the type of an 
ordinary variable. If <type> is present, 
then the function name cannot appear in 
any additional type statements. In any 
event, an external function cannot be of 
type CHARACTER. 
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The list of argument names defires the 
number and, with any subsequent. IMPLICIT, 
EXTERNAL, type, or DIMENSION statements, 
the type of arguments to that function. 
Neither argument names nor the function 
name can appear in COMMON, DATA, 
EQUIVALENCE, or INTRINSIC statements. 


The function name must appear as a 
variable in the progran unit shat defines 
the function. Every execution of that. 
function must assign a value to that 
variable. The final value of this 
variable, upon execution of a RETURN or an 
END statement, defines the vaiue of the 
function. 


“sfter being defined, the values of this 
variable can be referenced 1: an 
expression, like any other variable. An 
external function may return values in 
addition to the value of the function by 
assignment to one or more of its formal 
arguments, 


A function can be called from any program 
unit. FORTRAN, however, does not allow 
recursive function calls; tr means that 
a function neither can call self 
directly nor can call another: function if 
Such 4 call results in that function being 
called again before it returns control to 
its caller. But recursive calls are not 
detected by the compiler, evan if they are 
direct. 
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Example C EXAMPLE OF A FUNCTION REFERENCE 
C GETNO IS A FUNCTION THAT READS A 
C NUMBER FROM A FILE 
I=2 
1g IF (GETNO(I) .EQ. 6.8) GO TO 186 
STOP 
END 


FUNCTION GETNO(NOUNIT) 
READ(NOUNIT, °*(F16.5)°) R 
GETNO = R 

RETURN 

END 
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3.2.28 The G 


Syntax 


Purpose 


Remarks 


) Statement. (Assigned GOTO) 


GOTO <name> [[,] (<slabel> 
{, <slabel>]...)] 


Causes the statement labeled by the label 
last assigned to <name> to be the next 
statement executed. 


<name> is an integer variable name. 


<slabel> is a statement label of an 
executable statement in the same program 
unit as the assigned GOTO statement. 


The same statement label may appear 
repeatedly in the list of labels. ‘when 
the assigned GOTO statement is executed, 
<name> must have seen assigned the label 
of an executable statement found in the 
same program unit as the assigned GOTO 
statement. 


Including the optional list of labels and 
selecting the SDEBUG metacommand results 
in a runtime error if the label last 
assigned to <name> is not among those 
listed. Jumping into a DO, IF, ELSEIF, or 
ELSE block from outside the block is not 
permitted. 


A special feature, extended range DO 
loops, does permit jumping into a DO 
block. See Section 6.2.2 for more 
information about this feature. 


3.2.21 THE GOTO STATEMENT (COMPUTED GOTO) 


Syntax 


Purpose 


Remarks 


GOTO (<slabel> [, <slabel>]..) [,] <i> 


Transfers control to the statement labeled 
by the <i>th label in the list. 


<slabel> is the statement label of an 
executable statement. from the same program 
unit as the computed GOTO statement. The 
same statement. label may be repeated in 
the list of labels. 


<i> is an integer expression. 


If there are n labels in the list of 
labels and <i> is out of range, the 
computed GOTO statement serves as a 
CONTINUE statement. <i> would be out of 
range in either of the following cases: 


<i> <1 
<i> >n 


Otherwise, the next statement executed is 
the one labeled by the <i>th label in the 
list of labels. 


Junping into a DO, IF, ELSEIF, or ELSE 
block from outside the block is not 
permitted. A special feature, extended 
range DO loops, does permit jumping into a 
DO block. See Section 6.2.2 for more 
information. 


Example C EXA 


r=1 
GOTO (18, 28) I 


26 CONTINUE 
322.22 THE GOTO STATEMENT (UNCONDITIONAL GOTO) 


Synt ax GOTO <slabel> 


Purpose Transfers control to the statement labeled 
<slabel>. 


Remarks <slabel> is the statement label of an 
executable statement in the same program 
unit as the GOTO statement. 


Jumping into a DO, IF, ELSEIF, or ELSE 
block from outside the block is not. 
permitted. A special feature, extended 
range DO loops, does permit. jumping into a 
DO block. See Section 6.2.2, "The $D0O55 
Metacommand," for more information about 
this feature. 


Example C EXAMPLE OF UNCONDITIONAL GOTO 
GOTO 4622 


4922 CONTINUE 


3.2.23 THE IF STATEMENT (ARITHMETIC IF) 


Syntax IF (<expression>) <slabell>, <slabel2>, 
<slabel3> 


Pur pose 


Remarks 


Evaluates the expression and transfers 
control to the statement labeled by one of 
the specified labels, according to the 
result of the expression. 


<expression> is an integer or real 
expression, 


<slabell>, <slabel2>,and <slabel3> are 
statement labels of executable statements 
in the same program unit as the arithmetic 
IF statement. 


The same statement label may appear more 
than once among the three labels. The 
first label is selected if the value of 
the expression is less than zero, the 
second label if the value equals zero, and 
the third label if the value is greater 
than zero. The next statement executed is 
the statement labeled by the selected 
label, 


Jumping into a DO, IF, ELSEIF, or ELSE 
block from outside the block is not 
permitted. A special feature, extended 
range DO loops, does permit. jumping into a 
DO block. See Section 6.2.2 for more 
information about this feature. 


Example C EXAMPLE OF ARITHMETIC IF 


I=9 
IF (I) 18, 20, 36 
16 CONTINUE 


28 CONTT:-UE 


36 CONTINUE 


3.2.24 THE IF STATEMENT (LOGICAL IF) 


syntax 


Purpose 


Remarks 


IF (<expression>) <statement> 


Evaluates the logical expression and, if 
the value of that expression is .TRUE., 
executes the statement given. If the 
expression evaluates to .FALSE., the 
statement is not executed and execution 
continues as if a CONTINUE statement were 
encountered. 


<expression> is a logical expression. 


<statement> is any executable statement 
except. a DO, block IF, ELSEIF, ELSE, 
ENDIF, END, or another logical IF 
statement. 


Example C EXAMPLE OF LOGICAL IF 


IF (I .EQ. 9) J = 2 
IF (X .GF. 2.3) GOTO 168 


196 CONTINUE 


302.25 THE IF THEN ELSE STATEMENT (BLOCK IF) 


synt ax 


Purpose 


IF (<expression>) THEN 


Evaluates the expression and, if the 
expression evaluates to .TRUE., begins 
executing statements in the IF block. If 
the expression evaluates to .FALSE., 
control transfers to the next ELSE, 
ELSEIF, or ENDIF statement at the same IF~ 
level, 


Remarks 


<expression> is a logical expression. 


The associated IF block consists of all 
the executable statements (possibly none) 
that appear following the statement, up to 
but not including the next ELSEIF, ELSE, 
or ENDIF statement that has the same IF- 
level as this block IF statement. 


After execution of the last statement in 
the IF block, the next statement executed 
is the next ENDIF statement. at the same 
IF-level as this block IF statement. If 
the expression in this block IF statement 
evaluates to .TRUE., and tne IF block has 
no executable statements, the next. 
StacLement executed is the next ENDIF 
statement at the same IF-level as the 
block IF statement. If the expression 
evaluates to .FALSE., the next statement 
executed is the next ELSEIF, ELSE, or 
ENDIF statement at the same IF-level as 
the block IF statement. 


Transfer of control into an IF block from 
outside that block is not permitted. 


IF Levels 


The concept of an IF-level in block IF and 
associated statements is described as 
follows. For any statement, its IF-level 
is nl minus n2, where: 


1. nl is the number of block IF 
statements from the beginning of the 
program unit in which the statement 
occurs, up to and including that 
statement. 


Qe n2 is the number of ENDIF statements 
from the beginning of the program 
unit, up to, but not. including, that 
statement. 


The IF-level of every statement must be 
greater than or equal to zero and the IF~ 
level of every block IF, ELSEIF, ELSE, and 
ENDIF must be greater than zero. Finally, 
the IF=level of every END statement must. 
be zero. The IF-level defines the nesting 
rules for the block IF and associated 
statements and defines the extent of IF, 
ELSEIF, and ELSE blocks. 


Example Simple block IF that skips a group of 
one: statements if the expression is false: 


IF(1I.LT.16) THEN 
e Some statements executed 
fs only if I.LT.10 

ENDIF 


Example Block IF with ELSEIF statements: 


IF(J.GT.166@) THEN 
‘ ' Some statements executed 
only if J.GT.1986 
ELSEIF (J.GT.100) THEN 
7 Some statements executed 
only if J.GT.1698 and J.LE.1660 
BLSEIF (J. GT.16) THEN 
Some statements executed 
only if J.GT.16 and J.LE.1980 


ELSE 
° Some statements executed 
° only if J.LE.16 

ENDIF 
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Example Nesting of constructs and use of an ELSE 
statement three: following a block IF 
without. intervening ELSEIF statements: 


IF (1.LT.106) THEN 
: Some statements executed 
* only if I.LT.160 
IF (J.LT.18) THEN 


7 Some statements executed 
« only if I.LT.166 and J.LT.16 


ENDIF 
. Some statements executed 
° only if I.LT.166 
ELSE 
e Some statements executed 
. only if I.GE.186 
IF (J.LT.19) THEN 


e Some statements executed 
« only if I.GE.166 and J.LT.16 
ENDIF 
e Some statements executed 
° only if I.GE.1066 
ENDIF 


3.2.26 THE IMPLICIT STATEMENT 


Synt ax IMPLICIT <type> (<a> [, <a>]...) [<type> 
(<a> [, <a>] .0c) coe] 


Purpose Defines the default type for user-declared 


names. 


Remarks <type> is one of the following types: 


INTEGER 
INTEGER* 2 
INTEGER* 4 

REAL 

REAL* 4 

REAL*8 

DOUBLE PRECISION 
LOGICAL*2 
LOGICAL* 4 
CHARACTER 


<a> is either a single letter or a range 
of letters. A range of letters is 
indicated by the first and last letters in 
the range, separated by a minus sign. The 
letters for a range must. be in 
alphabetical order. 


An IMPLICIT statement defines the type and 
size for all user~defined names that begin 
with the letter or letters given. An 
IMPLICIT statement applies only to the 
program unit in which it appears and does 
not. change the type of any intrinsic 
function. 


IMPLICIT types for any specific user name 
can be overridden or confirmed if that. 
name is given in a subsequent type 
statement. An explicit type in a FUNCTION 
statement also takes priority over an 
IMPLICIT statement. If the type in 
question is a character type, the length 
is also overridden by a later type 
definition. 


A program unit can have more than one 
IMPLICIT statement. All IMPLICIT 
statements, however, must precede all 
other specification statements in that 
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Example 


program unit. The same letter cannot be 
defined more than once in an IMPLICIT 
statement in the same program unit. 


C EXAMPLE OF IMPLICIT STATEMENT 
IMPLICIT INTEGER (A ~ B) 
IMPLICIT CHARACTER*16 (N) 
AGE = 10 
NAME = "PAUL! 


3.2.27 THE INTRINSIC STATEMENT 


Syntax 


Purpose 


Remarks 


Example 


INTRINSIC <namel> [, <name2>]... 


Declares that a name is an intrinsic 
function. 


<name> is an intrinsic’ function name. 


Each user name may appear only once in an 
INTRINSIC statement. A name that appears 
in an INTRINSIC statement cannot appear in 
an EXTERNAL Statement. All names used in 
an ‘INTRINSIC statement must be system- 
defined INTRINSIC functions. For a list 
of these functions, see Table 5~1 in 
Chapter 5. 


You must specify the name of an intrinsic 
function in an INTRINSIC statement if you 
want to pass it aS a parameter (i.e., as 
an actual argument to a program unit). 


C EXAMPLE OF INTRINSIC STATEMENT 
INTRINSIC SIN, COS 

C SIN AND COS ARE PARAMETERS TO CALC2 
X = CALC2 (SIN, COS) 


3.2.28 THE OPEN STATEMENT 


Syntax 


Purpose 


Remarks 


OPEN (<unit-spec> [, FILE='<fname>*] 

{, STATUS='<status>'] [,ACCESS='"<access>'] 
[, FORM="<format>'] [, RECL=<rec-length>]) 
Associates a unit number with an external 
device or file on an external device. 


<unit=spec> is a required unit specifier. 
It must. appear as the first argument; it 
must not be an internal unit specifier. 
See Section 4.3.1 for more information 
about. unit specifiers and other elements 
of I/O statements. 


<fname> is a character expression. This 
optional argument, if present, must. appear 
as the second argument. If the argument 
is omitted, the compiler creates a 
temporary scratch file with a name unique 
to the unit. The scratch file is deleted 
when it is either explicitly closed or the 
program terminates normally. 


If the filename specified is blank (FILE=' 
'), the user will be prompted for a 
filename at runtime. If opened with 
STATUS="OLD', the file itself must exist. 


All arguments after <fname> are optional 
and can appear in any order. Except for 
RECL=, these options are character 
constants with optional trailing blanks 
and must be enclosed in single quotation 
marks. 


<status> is OLD (the default) or NEW. OLD 
is for reading or writing existing files; 
NEW is for writing new files. 


<access> is SEQUENTIAL (the default) or 
DIRECT. 


<format> is FORMATTED, UNFORMATTED, or 
BINARY. If access is SEQUENTIAL, the 
default is FORMATTED; if access is 
DIRECT, the default is UNFORMATTED. 


<rec-length> (record length) is an integer 
expression that specifies the length of 
each record in bytes. This argument is 
applicable only for DIRECT access files, 
for which it is required, 


Associating unit zero to a file has no 
effect: Unit zero is permanently 
connected to the keyboard and screen. 


Exanple C PROMPT USER FOR A FILE NAME. 
one: _ WRITE(*," (A\)") ‘Output file name? ' 
C PRESUME THAT FNAME IS SPECIFIED TO BE 
C CHARACTER*64. 
C READ THE FILE NAME FROM THE KEYBOARD. 
READ (*,°(A)°) FNAME 
C OPEN THE FILE AS FORMATTED SEQUENTIAL 
C AS UNIT 7. 
C NOTE THAT THE ACCESS SPECIFIED WAS 
C UNNECESSARY SINCE IT IS THE DEFAULT. 
C FORMATTED IS ALSO THE DEFAULT. 
OPEN (7 , FILE=FNAME , ACCESS=" SEQUENTIAL' , 


+STATUS="NEW’ ) 
Example C OPEN AN EXISTING FILE CREATED BY EDITOR 
twos C CALLED DATA3.TXT AS UNIT 3. 
OPEN (3 , FILE=" DATA3 . TXT ) 
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E STATES! 


Syntax PAUSE [<n>] 


Purpose Suspends program execution until the 
RETURN key is pressed. 


Remarks <n> is either a character constant or a 
string of not. more than five digits. 


The PAUSE statement suspends execution of 
the program, pending an indication that it 
is to continue. The argument <n>, if 
present, is displayed on the screen as a 
prompt. requesting input from the keyboard. 
If <m> is not present, the following 
message is displayed on the screen: 


PAUSE. Please press <return> to cortinue. 
After you press the RETURN key, program 
execution resumes as if a CONTINUE 
Statement were executed. 
Example C EXAMPLE OF A PAUSE STATEMENT 
IF (TWARN .E0. 8) GOTO 389 
PAUSE "WARNING: IWARN IS NONZERO’ 
366 CONTINUE 
3.2.38 THE PROGRAM STATEMENT 
syntax PROGRAM <progr am-name> 


Purpose Identifies the progran unit as a ain 
program and gives it a name. 


Remarks 


Example 


<program-name> is the name you have given 
to your main program. The program name is 
a global name. Therefore, it cannot be 
the same as that of another external 
procedure or common block. (It is also a 
local name to the main program and must 
not conflict with any local name in the 
main program.) The PROGRAM statement. may 
only appear as the first statement of a 
main program. 


If the main program does not have a 
program statement, it will be assigned the 
name MAIN. The name MAIN then cannot be 
used to name any other entity. 


PROGRAM GAUSS 
REAL COEF (16,19), CONST (19) 


END 


322-31 THE READ STATEMENT 


Syntax 


Purpose 


Remarks 


READ (<unit-spec> [, <format-spec>] 
{, REC=<rec=-num>] [, END=<slabell>] 
[, ERR=<slabel2>]) <iolist> 


Transfers data from the file associated 
with <unit-spec> to the items in the 
<iolist>, assuming that no end-of-file or 
error occurs. 


If the read is internal, the character 
variable or character array element. 
specified is the source of the input; if 
the read is not internal, the source of 
the input is the external unit. 


<unit=spec> is a required unit specifier, 
which must appear as the first argument. 


<format-spec> is a format. specifier. It 
is required for formatted read as the 
second argument; it must not. appear for 
unformatted read. 


Other arguments, if present, can appear in 
any order. 


<rec-num> is a record number, specified 
for direct. access files only; if <rec-~ 
num> is given for other than direct files, 
an error results, The record number is a 
positive integer expression and positions 
to the record number <rec-num> (the First 
record in the file has record number 1) 
before the transfer of data begins. If 
this argument is omitted for a direct. 
access file, reading continues 
sequentially from the current poSition in 
the file. 


<slabell> is an optional statement label 
in the same program unit as the READ 
statement., If this argument. is omitted, 
reading past the end of the file results 
in a runtime error. If it is present, 
encountering an end-of=-file condition 
transfers control to the executable 
Statement specified. 


<slabel2> is an optional statement label 
in the same program unit. as the READ 
Statement. If this argument. is omitted, 
I/O errors result in runtime errors. If 
it is present, I/O errors transfer control 
to the executable statement specified. 


<iolist> specifies the entities into which 
values are transferred from the file. An 
<iolist> may be empty, but ordinarily 
consists of input entities and implied Do 
lists, separated by commas. 


See Section 4.3.1, "Elements of I/0 
Statements," for more information about 
unit. specifiers and other elements of I/O 
statements. 


If the file has not been opened by an OPEN 
statement, an implicit. OPEN operation is 
performed. This operation is equivalent 
to the following statement: 


OPEN (<unit-spec>,FILE=' ' ,STATUS='OLD!, 
+ACCESS=' SEQUENTIAL' , FORM='<format>') 


<format> is FORMATTED if the READ 
statement is formatted and UNFORMATTED if 
the READ statement is unformatted. See 
Section 3.2.28, "The OPEN Statement," for 
a description of the effect of the FILE= 
parameter. 


Example C SET UP A TWO DIMENSIONAL ARRAY. 
DIMENSION IA(19,29) 


C READ IN THE BOUNDS FOR THE ARRAY. 
C THESE BOUNDS SHOULD BE LESS THAN OR 
C EQUAL TO 16 AND 29 RESPECTIVELY. 
C THEN READ IN THE ARRAY IN NESTED 
C IMPLIED DO LISTS WITH INPUT FORMAT OF 
C 8 COLUMNS OF WIDTH 5 EACH. 
READ (3,996) IL,JL, ((IA(1I,J) ,J=1,JL) , 
+I=],IL) 
996 FORMAT (215/, (815) ) 


3.2.32 THE RETURN STATEMENT 


Syntax 


Purpose 


Remarks 


Example 


RETURN 


Returns control to the calling program 
unit. 


RETURN can only appear in a function or 
subroutine. 


Execution of a RETURN statement terminates 
execution of the enclosing subroutine or 
function. If the RETURN statement is in a 
function, the function's value is equal to 
the current value of the variable with the 
same name as the function. 


Execution of an END statement in a 
function or subroutine is equivalent to 
execution of a RETURN statement. Thus, 
either a RETURN or an END statement, but 
not both, is required to terminate a 
function or subroutine. 


C EXAMPLE OF RETURN STATEMENT 


16 READ(*,°(Al)*) IN 
IF (IN .EQ. "Y*) RETURN 
GOTO 168 

C RETURN IMPLIED 
END 


32-33 THE REWIND STATEMENT 


Syntax 


Purpose 


Remarks 


Example 


REWIND <unit=spec> 


Repositions to its initial point the file 
associated with the specified unit. 


<unit-spec> is a required external unit 
specifier. See Section 4.3.1 for more 
information about. unit specifiers and 
other elements of I/O statements. 


INTEGER A(8G) 


® 


WRITE (7,° (8@I1)°) A 


REWIND 7 


READ (7, *(8611)") A 


3.2.34 THE SAVE STATEMENT 


Syntax 


Purpose 


Remarks 


SAVE /<cnamel>/ [, /<cname2>/]... 


Causes variables to retain their values 
across invocations of the procedure in 
which they are defined. 


<cname> is the name of a common block. 
After being saved, variables in the common 
block have defined values if the current 
procedure is Subsequently re-entered. 
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Example 


Since in the current implementation, all 
common blocks and variables are statically 
allocated, all common blocks and variables 
are saved automatically. In practice, 
therefore, the SAVE statement has no 
effect. 


C EXAMPLE OF SAVE STATEMENT 
SAVE /MYCOM/ 


3.2.35 THE STATEMENT FUNCTION STATEMENT 


Syntax 
Pur pose 


Remarks 


<fname> ({<farg> [{, <farg>]..]) = <expr> 
Defines a function in one statement. 


<fname> is the name of the statement 
function. 


<farg> is a formal argument name, 
<expr> is any expression. 


The statement. function statement is 
Similar in form to the assignment 
Statement. A statement function statement 
can only appear after the specification 
statements and before any executable 
statements in the program unit in which it 
appears, 


A statement function is not an executable 
statement, since it is not executed in 
order as the first statement in its 
particular program unit. Rather, the body 
of a statement function serves to define 
the meaning of the statement. function. 
Like any other function, a statement. 
function is executed by a function 
reference in an expression. 


bad 
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The type of the expression must be 
assignment compatible with the type of the 
Statement function name. The list of 
formal argument. names serves to define the 
rumber and type of arguments to the 
statement function. The scope of formal 
argument names is the statement function. 
Therefore, formal argument names can be 
re-used as other user-defined names in the 
rest. of the program unit enclosing the 
statement function definition. 


The name of the statement function, 
however, is local to the enclosing program 
unit; it must not be used otherwise, 
except as the name of a common block or as 
the name of a formal argument to another 
statement function. In the latter case 
the type of all such uses must be the 
same . 


If a formal argument name is the same as 
another local name, then a reference to 
that name within the statement function 
defining it always refers to the formal 
argument, never to the other usage. 


Within the expression <expr>, references 
to variables, formal argunents, other 
functions, array elements, and constants 
are permitted. Statement. function 
references, however, must refer to 
statement functions defined prior to the 
statement function in which they appear. 
Statement functions cannot be called 
recurSively, either directly or 
indirectly. 


A statement function can only b2 
referenced in the program unit in which it 
is defined. The name of a statement. 
function cannot appear in any 
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Example 


Remarks 


Example 


specification statement., except in a type 

Statement (which may not define that name 

aS an array) and in a COMMON statement (as 
the name of a common block). A statement 

function cannot be of type character. 


C EXAMPLE OF STATEMENT FUNCTION STATEMENT 
DIMENSION X(1@) 
ADD(A, B) = ArB 


THE STOP STATEMENT 


STOP [<n>] 


éo> is elther a character constant or a 
string of nok more than five digits, 


The argument, <n>, if present, is 
displayed on the screen when the program 
terminates, if <n> is not present, the 
following message is displayed: 


STOP =~ Program terminated. 


C EXAMPLE OF STOP STATEMENT 
IF (IERROR .EQ. 8) GOTO 268 
STOP ‘ERROR DETECTED’ 

286 CONTINUE 


3.2.37 


syntax 


Purpose 


Remarks 


THE SUBRO 


SUBROUTINE <subroutine-name> [([<farg> 
[, <farg>]..-])] 


Identifies a program unit as a subroutine, 
gives it a name, and identifies the formal 
parameters to that subroutine. 


<subroutine-name> is the user-defined, 
global, external name of the subroutine, 


<farg> is the user-defined name of a 
formal argument, also Known as a dunmy 
argument. 


A Subroutine begins with a SUBROUTINE 
statement. and ends with the next following 
END statement. It can contain any Kind of 
statement other than a PROGRAM st.atement, 
SUBROUTINE statement, or a FUNCTION 
statement. 


The list of argument names defines the 
number and, with any Subsequent IMPLICIT, 
EXTERNAL, type, or DIMENSION statements, 
the type of arguments to that subroutine. 
Argument. names cannot. appear in COMMON, 
DATA, EQUIVALENCE, or INTRINSIC 
statements. 


The actual arguments in the CALL statement. 
that reference a Subroutine must agree 
with the corresponding formal arguments in 
the SUBROUTINE statement, in order, in 
number, and in type or kind. 


The compiler will check for correspondence 
if the formal arguments are known. To be 
known, the SUBROUTINE statement that 
defines the formal arguments must precede 
the CALL statement in the current 
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compilation. Rules for the correspondence 
of formal and actual arguments are 
described in Section 3.2.4. 


Example SUBROUTINE GETNUM (NUM,UNIT) 
INTEGER NUM, UNIT 
ig READ (UNIT,* (119)*, ERR=1¢) NUM 


Syntax <type> <vnamel> [, <vname2>]... 
Purpose Specifies the type of user-defined names. 


Remarks <type> is one of the following data type 
specifierss 


INTEGER 
INTEGER*2 
NTEGER* 4 
REAL 
REAL*4 
REAL*8 
DOUBLE PRECISION 
LOGICAL 
LOGICAL* 2 
LOGICAL*4 
CHARACTER 


<vname> is the symbolic name of a 
variable, array, or statement function; 
or a Function Subprogram; or an array 
declarator. 


A type statement can confirm or override 
the implicit type of a name. A type 
statement can also specify dimension 
information. 


A user name for a variable, array, 
external function, or statement function 
may appear in a type statement. Such an 
appearance defines the type of that name 
for the entire program unit. Within a 
program unit, a name can have its type 
explicitly specified by a type statement 
only once. 


A type statement may also confirm the type 
of an intrinsic function, but it is not 
required. The name of a subroutine or 
main program cannot. appear in a type 
statement. 


The following rules apply to a type 
statement ¢ 


1. <A type statement must precede all 
executable statements. 


26 The data type of a symbolic name can 
be declared explicitly only once. 


3. A type statement cannot be labeled. 


4. A type statement can be used to 
declare an array by appending a 
dimension declarator to an array 
name. 


A symbolic name can be followed by a data 
type length specifier of the form 
*<length>, where <length> is one of the 
acceptable lengths for the data type being 
declared. Such a specification overrides 
the length attribute that the statement 
implies and assigns a new length to the 
specified item. If both a data type 
length specifier and an array declarator 
are included, the data type length 
specifier goes last. 
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Example C EXAMPLE OF TYPE STATEMENTS 
INTEGER COUNT, MATRIX(4,4) , SUM 
REAL HAN, TASS 
LOGICAL SWITCH 


INTEGER*2 Q, M12*4, IVEC(19)*4 
REAL*4 WX1, WX3*4, WX5, WX60*4 


CHARACTER NAME*16, CITY*89, CH 


3.2.39 THE WRITE STATEMENT 


Synt.ax WRITE (<unit-spec> [, <format~spec>] 
{, ERR=<slabel>] [{, REC=<rec=-num>]) 
<iolist> 


Purpose Transfers data from the <iolist> items to 
the file associated with the specified 
unit. 


Remarks <unit-spec> is a required unit specifier 
and must appear as the first argument. 
See Section 4.3.1 for more information 
about unit. specifiers and other elements 
of I/O statements. 


<format—spec> is a format specifier. It 
is required as the second argument for a 
formatted WRITE; it must not appear. for 
an unformatted WRITE. 


The remaining arguments, if present, may 
appear in any order. 


<slabel> is an optional statement. label. 
If it is not present, I/O errors result in 
runtime errors. If it is present, I/O 
errors transfer control to the executable 
statement specified, 


<rec-num> is a record number, specified 
for direct access files only (otherwise, 
an error results). It is a positive 
integer expression, specifying the number 
of the record to be written. The first 
record in the file is record number 1. If 
the record number is omitted for a direct 
access file, writing continues from the 
current position in the file. 


<iolist> specifies the entities whose 
values are transferred by the WRITE 
statement. An <iolist> may be empty, but 
ordinarily consists of output entities and 
implied DO lists, separated by commas. 


If the WRITE is internal, the character 
variable or character array element 
specified as the unit is the destination 
of the output; otherwise, the external 
unit is the destination. 


If the file has not been opened by an OPEN 
statement, an implicit open operation is 
performed. The OPEN operation is 
equivalent to the following statement: 


OPEN (<unit-spec>, FILE=" ', STATUS='NEW', 
+ACCESS=' SEQUENTIAL’ , FORM=<format.>) 


<format> is FORMATTED for a formatted 
WRITE statement and UNFORMATTED for an 
unformatted WRITE statement. See Section 
3.2.28 for a description of the effect of 
the FILE= argunent. 


Example C Display message: “One= 1,Two= 2,Three= 3° 
C on the screen, not doing 
C things in the simplest way! 
WRITE (* ,988) "One=",1,1+1,*ee=* ,+ (14141) 
989 §«=FORMAT(A,12° ,Two=' ,1X,11," ,Thr’ ,A, 12) 


CHAPTER 4 


THE I/O SYSTEM 


This chapter supplements the presentation of the I/O 
statements in Chapter 3. It describes the elements 
of the MS~FORTRAN file system, defines the basic 
concepts of I/O records and I/O units, and discusses 
the various kinds of file access available. It 
further relates these definitions to how various 
tasks are accomplished using the most common forms 
of files and I/O statements. The chapter includes a 
complete program illustrating the I/O statements and 
discusses general I/O system limitations. 


4.1 RECORDS 


The building block of the MS=-FORTRAN file system is 
the record. A record is a sequence of characters or 
values. There are three kinds of records; 
formatted, unformatted, and endfile. 


Formatted: A formatted record is a sequence of 
characters terminated by a system-dependent end-of- 
line marker. Formatted records are interpreted in a 
manner consistent. with the way most operating 
systems and editors interpret lines. 


Unformatted: An unformatted record is a sequence of 
values, with no system alteration or interpretation. 
Unformatted Files contain a structure that defines 
the physical record. Binary files contain only the 
values written to them, and the record structure 
cannot, in general, be determined from this 
information, 


Endfile: The MS-FORTRAN file system simulates a 
virtual endfile record after the last record in a 
file. The way end-of-file is represented depends in 
part. on the operating system. 


4.2 FILES 


A file is a sequence of records. Files are either 
external or internal. 


ce) An external file is either a file on a device 
or the device itself. 


re) An internal file is a character variable that 
serves aS the Source or destination of some 
formatted I/O operation. 

From here on in this manual, both internal MS- 

FORTRAN files and the files known to the operating 

system are uSually referred to simply as "files," 

with context determining meaning. The OPEN 

Statement provides the link between the two notions 

of files; in most cases, the ambiguity disappears 

after opening a file, when the two notions coincide. 

4.2.1 FILE PROPERTIES 

A FORTRAN file has the following properties: 

1. Name 

2. Position 


3. Structure (formatted, unformatted, or binary) 


4. Access method (Sequential or direct) 


4.2.1.1 FILENAME 


A file can have a name. If present, a name is a 
character string identical to the name by which the 
file is known to the operating system. Filenaming 
conventions are listed in your Operator's Reference 
Guide, 


4.2.1.2 FILE POSITION 


The position of a file is usually set by the 
previous I/O operation. A file has an initial 
point, terminal point, current record, preceding 
record, and next record. 


It is possible to be between records in a file, in 
which case the next record is the successor to the 
previous record, and there is no current record. 


Opening a sequential file for writing positions the 
file at its beginning and discards all old data in 
the file. The file position after sequential WRITEs 
is at the end of the file, but not beyond the 
endfile record. 


Executing the ENDFILE statement positions the file 
beyond the endfile record, as does a READ statement 
executed at the end of the file. You can detect the 
endfile condition by using the END= option in a READ 
statement. 


4.2.1.3 FILE STRUCTURE 
An external file may be opened as a formatted, 
unformatted, or binary file. All internal files are 


formatted. 


Formatted Files consisting entirely of 
formatted records. 


Unformatted Files consisting entirely of 
unformatted records, 


Binary Sequences of bytes with no internal 
structure. 


4.2.1.4 FILE ACCESS METHOD 


An external file is opened as either a sequential 
file or a direct access file. 


Sequential: Files that contain records whose order 
is determined by the order in which the 
records were written (the normal 
sequential order). These files must not. 
be read or written using the REC= option, 
which specifies a position for direct. 
access I/O. 


Direct: Files whose records can be read or written 
in any order (they are random access 
files). Records are numbered 
sequentially, with the first record 
numbered 1. All records have the same 
length, specified when the file is opened; 
each record has a unique record number, 
specified when the record is written. 


It is possible to write records out of order (e.g., 

9, 5, and 11 in that order), without the records in 

between. It is not possible to delete a record once 
written; however, a record can be overwritten with 

a new value. 


Reading a record from a direct access file that. has 
not. been written will result in an error. Direct 
access files must. reside on disk. The operating 
system attempts to extend direct access files if a 
record is written beyond the old terminating file 
boundary; the success of this operation depends on 
the existence of room on the physical device. 
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4.2.2 SPECIAL PROPERTIES OFINTERNAL FILES 


An internal file is a character variable or 
character array element. The file has exactly one 
record, which is of the same length as the character 
variable or character array element. 


If less than the entire record is written, the 
remaining portion of the record is filled with 
blanks. The file position is always at. the 
beginning of the file prior to execution of the I/0 
statement. Internal files permit only formatted, 
sequential I/0; and only the I/O statements READ 
and WRITE may specify an internal file. 


Internal files provide a mechanism for using the 
formatting capabilities of the I/O system to convert 
values to and from their external character 
representations within the MS-FORTRAN internal 
memory structures, That is, reading a character 
variable converts tne character values into numeric, 
logical, or character values and writing a character 
variable allows values to be converted into their 
(external) character representation. 


The backslash edit descriptor (\) may not be used 
with internal files. 
4.2.3 UNITS 
A unit is a means of referring to a file. A unit 
specified in an I/O statement. is either an external 
unit. specifier or an internal unit specifier. 
l. External unit specifier 

An external unit specifier is either an integer 


expression (which evaluates to a nonnegative 
value) or the character * (which stands for the 
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screen (for writing) and the keyboard (fer 
reading)). 


in most cases, an external unit specifier value 
is bound to a physical device (or files 
resident on the device) by name, using the OPEN 
statement. Once this binding of unit to systen 
filename occurs, MS=FORTRAN I/O statements 
specify the unit number to refer to the 
associated external entity. Once the file is 
opened, the external unit specifier value is 
uniquely associated with a particular external 
entity until an explicit CLOSE operation occurs 
or until the program terminates. 


The only exception to these binding rules is 
that the unit value zero is initially 
associated with the keyboard for reading and 
the screen for writing and no explicit OPEN 
statement is necessary. The MS=-FORTRAN file 
system interprets the character * as unit zero. 


Internal unit. specifier 
An internal unit specifier is a character 


variable or character array element that 
directly specifies an internal file. 


See Section 4.3.1 for a discussion of how these unit 
specifiers are used. 


4.2.4 COMMONLY USED FILE STRUCTURES 


Numerous combinations of file structures are 
possible in MS-FORTRAN. But two kinds of files 
suffice for most applications: 


l. 


26 


* files 


named, external, sequential, formatted files 


* represents the keyboard and screen, that is, a 
sequential, formatted file, also known as unit zero. 
When reading fram unit. zero, you must enter an 
entire line; the normal operating system 
conventions for correcting typing mistakes apply. 


An external file can be bound to a system name by 
any one of the following methods: 


1. If the file is explicitly opened, the name can 
be specified in the OPEN statement. 


2. If the file is explicitly opened and the name 
is specified as all blanks, the name is read 
from the command line (if available). If the 
command line is unavailable or contains no 
name, the user will usually be prompted for the 
name « 


3. I£ the file is implicitly opened (with a READ 
or WRITE statement) the name is obtained as in 
method 2, described in the preceding paragraph. 


4. If the file is explicitly opened and no name is 
specified in the OPEN statement, the file is 
considered a scratch or temporary file, and an 
implementation-dependent name is assumed. (See 
Appendix D in the MS-FORTRAN User's Guide for 
the default name used by your operating 
system.) 


The following sample program uses * files and named, 
external, sequential, formatted files for reading 
and writing. The I/0 statements themselves are 
explained in general in Section 4.3. For details of 
each individual I/O statement, see the appropriate 
entries in Section 3.2. 


CEA? COLES HE, FROM A PILE WHOSE NAME 
C IS ENTERED BY THE USER TO ANOTHER FILE NAKED 
C QUT.TXT, REVERSING THE POSITIONS OF THE 
C PIRST AND SECOND COLL ; 

PROGRAM COLSWP 

CHARACTER* 64 FNAME 


C PROMPT TO THE SCREEN BY WRITING TO *. 
WRITE (* ,962) 
986 FORMAT (° INPUT FILE NAME = °\) 


C READ THE FILE NAME FROM THE KEYBOARD BY 
C READING FROM *. 

READ (*,918) FNAKE 
916 FORMAT (A) 


C USE UNIT 3 FOR INPUT; ANY UNIT NUMBER EXCEPT 
C @ WILL DO. 
OPEN (3, FILE=FNAME) 


C USE UNIT 4 FOR OUTPUT; ANY UNIT NUMBER EXCEPT 
C @ AND 3 WILL DO. 
OPEN (4 ,FILE="OUT.TXT' ,STATUS="NEW® ) 


C READ AND WRITE UNTIL END OF FILE. 
168 READ (3 ,926 - END=206) I J 6K 
WRITE (4,928) 7,1 .K 
926 FORMAT (317) 
GOTO 186 
289 WRITE (* ,916) ‘Done 
EXD 


4265 OTHER FILES & ree CURE: 


The less commonly used file structures are 
appropriate for certain classes of applications. A 


very general indication of their intended uses 
follows: 


l. 


} 4 ‘ 


If random access I/O is needed, as would 
probably be the case in a data base, direct. 
access files are necessary. 


If the data is to be both written and reread by 
MS=FORTRAN, unformatted files are perhaps more 
efficient. in terms of speed, but possibly less 
efficient in terms of disk space. The 
combination of direct and unformatted files is 
ideal for a data base created, maintained, and 
accessed exclusively by MS-FORTRAN. 


If the data must be transferred without any 

system interpretation, especially if all 256 
possible byte values are to be transferred, 

unformatted I/O is necessary. 


One use of unformatted I/O is in the control of 
a device that has a single~byte, binary 
interface. Formatted I/O would, in tnis 
example, interpret certain. characters, such as 
the ASCII representation for RETURN, and fail 
to pass them through to the program unaltered. 


The number of bytes written for an integer 
constant is determined by the SSTORAGE 
metacommand (for details, see Section 6.2.8.) 


If the data is to be transferred as in the 
third use described in this list, but will be 
read by non-FORTRAN programs, the BINARY format 
is recommended. Unformatted files are blocked 
internally, and consequently the non-FORTRAN 
program must be compatible with this format to 
interpret the data correctly. BINARY files 
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contain only the data written to them. 
Backspacing over records is not possible and 
incomplete records cannot be read from them, 


4.2.6 OLD AND NEW FILES 


A file opened in MS=FORTRAN is either OLD or NEW, 
but. “opened for reading" is not distinguishable from 
“opened for writing." Therefore, you can open OLD 
(existing) files and write to them, with the effect 
of overwriting them. 


Similarly, you can alternately WRITE and READ to the 
same file (providing that you avoid reading beyond 
the end of the file, or reading unwritten records in 
a direct. file). A WRITE to a sequential file 
effectively deletes any records that existed beyond 
the newly written record. 


When a device such as the keyboard or printer is 
opened as a file, it normally makes no difference 
whether it is opened as OLD or NEW. With disk 
files, however, opening a file as NEW creates a new 
file; 


l. If a previous file existed with the same name, 
the previous file is deleted. 


2. If the new file is closed with STATUS='KEEP' or 
if the program terminates without doing a CLOSE 
operation on that. file, a permanent file is 
created with the name given when the file was 
opened. 


4.2.7 LIMITATIONS 


Certain limitations on the use of the MS-FORTRAN I/O 
system are described here: 


l. 


Direct files/direct device association-~There 
are two kinds of devices: sequential and 
direct. The files associated with sequential 
devices are streams of characters; except for 
reading and writing, no explicit motion is 
allowed. The keyboard, screen, and printer are 
all sequential devices. 


Direct devices, such as disks, have the 
additional task of seeking a specific location. 
Direct devices can be accessed either 
sequentially or randomly, and thus can support 
direct files. The MS~FORTRAN I/O system does 
not. allow direct files on sequential devices. 


BACKSPACE/BINARY sequential file association-- 
There is no indication in a binary sequential 
file of record boundaries; therefore, a 
BACKSPACE operation on such files is defined as 
backing up by one byte. Direct files contain 
records of fixed, specified length, so it is 
possible to backspace by records on direct 
unformatted files. 


Partial READ/BINARY file--The data read froma 
binary file must correspond in length to the 
data written. Unformatted sequential files 
differ, in that an internal structure allows 
part or none of a record to be read (the unread 
part is skipped). 


Side effects of functions called in I/0 
statements—-During execution of any I/0 
Statement, evaluation of an expression may 
cause a function to be called. That function 


call must not cause any I/O statement to be 
executed. 
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4.3 1/0 STATEMENTS 


This section discusses the elements of I/0 
statements in general, For specific details on eacn 
of the seven I/O statements OPEN, CLOSE, READ, 
WRITE, BACKSPACE, ENDFILE, and REWIND, see the 
appropriate entries in Section 3.2. 


In addition to these I/O statements, there is an I/O 
intrinsic function, EOF(<unit-spec>), which is 
described in Section 5.3.2. EOF returns a logical 
value that indicates whether there is any data 
remaining in the file after the current position. 
4.3-1 ELEMENTS OF I/O STATEMENTS 

The various I/O statements take certain parameters 
and arguments that specify sources and destinations 
of data transfer as well as other facets of the I/0 
operation. The elements described in this 
subsection are the following: 

1. Unit specifier (<unit-—spec>) 

2. Format specifier (<format-spec>) 


3 Input/output list (<iolist>) 


4.3.1.1 THE Unit SPECIFIER 


The unit specifier, <unit-spec>, can take one of the 
following forms in an I/O statement: 


1. *=-Refers to the keyboard or screen. 
2.. Integer expression--Refers to an external file 


with a unit number equal to the value of the 
expression (* is unit. number zero). 
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Name of a character variable or character array 
element~-Refers to the internal file 


represented by the the variable or array 
element. 


See Section 4.2.3 for a discussion of the difference 
between external and internal unit specifiers. 


Sedelo2 THE FORMAT SPECIFIER 


The format specifier, <format-spec>, can take one of 
the following forms in an I/O statement: 


oe Statement. Label--Refers to the FORMAT statement 
labeled by that label. For further 
information, see Section 3.2.18. 


Ze Integer variable name-~Refers to the FORMAT 
label assigned to that integer variable using 
the ASSIGN statement. For further information, 
see Section 3.2.1. 


3. Character expression-~The format. specified is 
the current value of the character expression 
provided as the format specifier. 


4. ®e—Indicates a list-directed I/O transfer. For 
further information, see Section 4.5. 


4.3.1.3 INPUT/OUTPUT LIST 


The input/output list, <iolist>, specifies the 
entities whose values are transferred by READ and 
WRITE statements. An <iolist> may be empty, but 
ordinarily consists of input or output entities and 
implied DO lists, separated by commas. An input. 
entity can be specified in the <iolist> of a READ 
Statement and an output entity in the <iolist> of a 
WRITE statement. 


1. Input entities--An input entity is either a 
variable name, an array element name, or an 
array name. An array name specifies all of the 
elements of the array in memory sequence order. 


Output entities—-In addition to being any of 
the items listed as input entities, an output 
entity can be any other expression not 
beginning with the left parenthesis character 
"(",. (The left parenthesis distinguishes 
implied DO lists from expressions.) 


To distinguish it from an implied Do list, the 
following expression 


(A+B) * (C+D) 
can be written as: 

+ (AtB) * (C+D) 
Implied Do lists 


Implied DO lists can be specified as items in 
the 1/0 list of READ and WRITE statements and 
have the following format: : 


(_<iolist>, <variable> = <exprl>, 
_<expr2>, [, _<expr3>]) 


<iolist> is defined the same as for elements of 
I/O statements: (including nested implied DO 
lists). 


<variable>, <exprl>, <expr2>, and <expr3> are 
the same as defined for the DO statement. That 
is, <variable> is an integer variable, while 
<exprl>, <expr2>, and <expr3> are integer 
expressions. 


In a READ statement, the DO variable (or an 
associated entity) must not appear as an input 
list item in the embedded <iolist>, but may 
have been read in the same READ statement 
before the implied DO list. The embedded 
<iolist> is effectively repeated for each 
iteration of <variable> with appropriate 
substitution of values for the DO variable. 


In the case of nested implied DO loops, the 


innermost (most deeply nested) loop is always 
executed first. 
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The first character of every record transferred to a 
printer or other terminal device, including the 
console, is not printed. Instead, it is interpreted 
as a carriage control character. The MS=-FORTRAN I/O 
system recognizes certain characters as carriage 
control characters. These characters and their 
effects when printed are snown in Table 4-1. 


Table 4~l1: Carriage Control Characters 


CHARACTER EFFECT 

space Advances one line. 

8 Advances two lines. 

1 Advances to top of next page 


(ignored by the console). 


+ (plus) Does not advance 
(allows overprinting). 
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Any character other than those listed above is 
treated as a space and deleted from the print line. 
If you accidentally omit the carriage control 
character, the first character of the record is not 
printed. 


4.4 PORMATTED 1/0 


If a READ or WRITE statement specifies a format, the 
I/O statement is considered a formatted, rather tnan 
an unformatted, I/O statement. Such a format can be 
specified in one of four ways, as explained 
previously in Section 4.3.1.2. 


Two of the four methods that refer to FORMAT 
statements are described in Section 3.2.18; the 
third is a character expression containing the 
format itself (see Section 4.4.2); the fourth 
denotes that the operation is to be list~directed 
(see Section 4.5). ; 


Tne following five examples are all valid and 
equivalent means of specifying a format: 


WRITE (*,998) I,J,K 
996 FORMAT(1X, 215,13) 


ASSIGN 999 TO IFMT 

998 FORMAT(1X,215,13) 
WRITE (* , TPMT) I,J,K 
WRITE (* ,° (1X, 215,13) °)I,J5,K 
CHARACTER* 11 FMTCH 
FMTCH = *(1X,215,13)° 
WRITE (* , FMTCH) I,J ,K 


WRITE (*,*) 1,5,K 


Tne format specification must begin with a left 
parenthesis character and end with a matching right 
parenthesis character. The leading left parenthesis 
can be preceded by initial blank characters. 
Characters beyond the matching right parenthesis are 
ignored. 


4.4.1] INTERACTION BETWEEN FORMAT AND I/O LIST 


Tf an <iolist> contains at least one item, at least 
one repeatable edit descriptor must exist in tne 
format specification. In particular, the empty edit 
specification, (), can be used only if no items are 
specified in the <iolist> (in which case a WRITE 
writes a zero length record and a READ skips to the 
next record). 


Bach item in the <iolist> is associated with a 
repeatable edit. descriptor during the I/O statement 
execution. In contrast, the remaining format 
control itens interact directly with the record and 
do not become associated with items in the <iolist>. 


The items in a format specification are interpreted 
from left to right. Repeatable edit descriptors act 
as if they were present <r> times (if omitted, <r> 
is treated as a repeat factor of one). A format 
specification itself can have a repeat factor, as in 
the following example: 


16(5F1.64, 2(3x,513)) 


During the formatted I/O process, the “format 
controller" scans and processes the format itens as 
described in the previous paragraph. When a 
repeatable edit descriptor is encountered, one of 
the following occurs: 


i. A corresconding item appears in the <iolist>, 
in which case the item and the edit descriptor 
are associated ard I/O of that itan proceeds 
under format control of the edit descriptor. 


Ze No corresponding item appears in the <iolist>, 
in which case the format controller terminates 
1/0. Thus, for the following statements: 


(*,18) I 
16 ORMAT (1X,°I= ',15,%d= °,15) 


the output would look like this: 


Vs 5% d= 
Tf the format controller encounters the matching 
final right parenthesis of the format specification 
i 


2 i - ecifl 
if there are no further items in the < olis, 


4. 
che format controller terminates I/0. 


i rein’ there are further items in the 

clolist>, the file is positioned at the beginning of 
e next "record and the format. controller continues 
by rescarming the format, starting at tne beginning 
of the format specification terminated by the last 
preceding right parenthesis. 


If tnere is no such preceding right parenthesis, the 
format. controller rescans the format. from the 
beginning. Within the portion of the format 
rescanned, there must be at. least one repeatable 
edit descriptor. 


If the rescan of the format specification begins 
with a repeated nested format. specification, the 
repeat factor indicates the number of times to 
repeat that nested format specification. The rescan 
does not change the previously s set. scale factor or 
the BN or BZ blank control in effect. 
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When the format controller terminates, the remaining 
characters of an input record are skipped or an end- 
of~record is written on output. An exception to 
this occurs when the \ edit descriptor is used. 

(See Section 4.4.3 for information on backslash 
editing.) 


4.4.2 EDIT DESCRIPTORS 


Edit descriptors in FORTRAN specify the form of a 
record and control the editing between the 
characters in a record and the internal format of 
data. There are two types of edit descriptors: 
repeatable and nonrepeatable. Both are described in 
the following sections of this chapter. 


4.4.2.1 Nonrepeatable Edit Descriptors 


1.  Apostrophe editing ('xxxx')-=<The apostrophe 
edit. descriptor has the form of a character 
constant and causes the character constant to 
be transmitted to the output unit. Embedded 
blanks are Significant; two adjacent 
apostrophes, i.e., single quotation marks, must 
be used to represent a single apostrophe within 
a character constant. Apostrophe editing 
cannot. be used for input (READ). For an 
example, see "Hollerith editing (H)." 


2¢ Hollerith editing (H)--The <nm>H edit descriptor 
transmits the next <n> characters, with blanks 
counted as significant, to the output unit. 
Hollerith editing cannot be used for input 
(READ) « 
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ie 


PTING 


The leading blank in each case in the preceding 
examples is a carriage control character to 
cause a line feed (carriage return) on output. 


Positional editing (X)--On input. (READ), the 
<n>x edit descriptor advances the file position 
cn> characters, skipping <n> characters. On 
cutput (WRITE), the <n>x edit descriptor writes 
<m> blanks, providing that further writing to 
the record occurs; otherwise, the <n>X 
descriptor results in no operation. 


Slash editing (/)=-The slash indicates the end 
of data transfer on the current record. On 
input, the file is positioned to the beginning 
of the next record. On output, an end-of- 
record is written, and the file 1s positioned 
to write on the beginning of the next record, 


Backslash editing (\)-~Normally when the format. 
controller terminates, the end of data 
transmission on the current record occurs. If 
the last edit descriptor encountered by the 
format controller is a backslash (\), this 
automatic end~of-record is inhibited, allowing 
subsequent. I/O statements to continue reading 
(or writing) from (or to) the same record, 

This mechanism is most commonly used to prompt 
to the screen and read a response from the same 
line, as in the following example: 


WRITE (*,° (A\)°) °Input an integer <=> ° 
READ (,*(8n,I6)") I 


The backslash edit descriptor does not inhibit 
the automatic end~of-record generated wnen 
reading from the * unit; input from the 
keyboard must always be terminated by the 
RETURN key. The backslash < jit descriptor may 
not be used with internal files. 


Scale factor editing (P)~~The <k>P edit 
descriptor sets the scale factor for subsequent 
F and — edit descriptors until the next <k>P 
edit descriptor. At the start of each I/O 
Statement, the scale factor is initialized to 
zero. The scale factor affects format editing 
in the following ways: 


a. On input, with F and — editing (providing 
that no explicit exponent exists in the 
field) and F output editing, the 
externally represented number equals the 
internally represented nunber multiplied 
by 18**<k>. 


b. Om input, with F and E editing, the scale 


Factor has no effect if there is an 
explicit exponent in the input field. 
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Cc. On output, with E editing, the real part 
of the quantity is output multiplied by 
18**<k> and the exponent is reduced by <k> 
(effectively altering the column position 
of the decimal point but not the value 
output). 


Blank interpretation (BN and BZ)~-These edit 
descriptors specify the interpretation of 
blanks in numeric input fields. The default, 
BZ, is set at the start of each I/O statement. 
This makes blanks, other than leading blanks, 
identical to zeros. If a BN edit descriptor is 
processed by the format controller, blanks in 
subsequent input fields are ignored unless, and 
until, a BZ edit descriptor is processed. 


The effect of ignoring blanks is to take all 
the nonblank characters in the input field ard 
treat them as if they were right-justified in 
the field with the number of leading blanks 
equal to the number of ignored blanks. For 
instance, the following READ statement accepts 
the characters shown between the slashes as the 
value 123° (where <RETURN> indicates pressing 
the RETURN key): 


READ(*,192) I 
160 FORMAT (BN,I6) 


/123 <RETURN>/ 
/123 456<RETURN>/ 
/ —123<RETURN>/ 


Reading “short" records can temporarily invoke 
BN status automatically. If the total number 
of characters in the input record is fewer than 
that specified by the combination of format 
descriptors and <iolist> elements, the record 
is padded on the right with blanks to the 
required length, and BN editing goes into 
effect temporarily. Thus, the following 
example results in the value 123, rather than 
12396: 


READ (*,°(15)") I 
/123<RETURND/ 


The BN edit descriptor, in conjunction with the 
infinite blank padding at the end of formatted 
records, makes interactive input very 
convenient. 


424.202 REPEATABLE EDIT DESCRIPTOR: 


The I, F, E, D, and G edit descriptors are used for 
I/O of numeric data. The following general rules 
apply to all numeric edit descriptors: 


es 


On input, leading blanks are not significant. 
Other blanks are interpreted differently 
depending on the BN or BZ flag in effect, but 
all blank fields always become the value zero. 
Plus Signs are optional. The blanks supplied 
by the file system to pad a record to the 
required size are also not. significant. 


On input with F and E editing, an explicit 
decimal point. appearing in the input field 
overrides the edit descriptor specification of 
the decimal point position. 


On output, the characters generated are right- 
justified in the field and padded by leading 
blanks, if necessary. 


On output, if the number of characters produced 
exceeds the field width or the exponent exceeds 
its specified width, the entire field is filled 
with asterisks, 


Individual descriptions of the repeatable edit 
descriptors follow. 


Le 


Integer editing (I)--The edit descriptor I<w> 
must be associated with an <iolist> item of 
type INTEGER. The field is <w> characters 
wide. On input, an optional sign may appear in 
the Field. 


Real edit.ing-~The edit descriptor F<w>.<d> 
must be associated with an <iolist> item of 
type REAL or REAL*®8. The field is <w> 
characters wide, with a fractional part <d> 
digits wide. The input field begins with an 
optional sign followed by a string of digits 
which may contain an optional decimal point. 
If the decimal point is present, it overrides 
the <d> specified in the edit descriptor; 
otherwise, the rightmost <d> digits of the 
String are interpreted as following the decimal 
point (with leading blanks converted to zeros, 
if necessary). Following this is an optional 
exponent which is either: 


1. + (plus) or = (minus) followed by an 
integer, or 


2 E followed by zero or more blanks followed 
by an optional sign followed by an 
integer. 


The output field occupies <w> digits, <d> of 
which fall beyond the decimal point. The value 
output is controlled both by the <iolist> item 
and the current scale factor. The output value 
is rounded rather than truncated. 
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E and D real editing--The E edit descriptor 
takes one of the forms E<w>.<d> or 
E<w>.<d>E<e>. The D edit descriptor takes the 
form D<w>.<d>. All parameters and rules for 
the E edit descriptor apply to the D edit 
descriptor. 


For each form, the field is <w> characters 
wide. The <e> has no effect on input. The 
input field for the E and D edit descriptors is 
identical to that described by an F edit 
descriptor with the same <w> and <d>. 


The form of the output field depends on the 
scale factor (set by the P edit descriptor) in 
effect. For a scale factor of zero, the output 
field is a minus sign (if necessary), followed 
by a decimal point, followed by a string of 
digits, followed by an exponent field for 
exponent <exp>, of one of the forms shown in 
Table 4-2. 


Table 4~2: Scale Factors for E and D Editing 


EDIT ABSOLUTE VALUE FORM OF 
DESCRIPTOR ___OF’ EXPONENT _____EXPONENT 
E<w> .<d> jexp| <= 99 E followed by plus 


or minus, followed 
by the two-digit 
exponent 


E<w> .<d> 99 < lexp| <= 999 Plus or minus, 
followed by the 
three-digit exponent 


E<w>.<d>E<e> Jexp| <= (10**<e>)-1 E followed by plus 
or minus, followed 
by <e> digits 
which are the 
exponent with 
possible leading 
zeros: 


D<w>.<d> Jexp] <= 99 D followed by plus 
or minus, followed 
by the two-digit 
exponent. 


D<w>.<d> 99 < l|exp| <= 999 Plus or minus, 
followed by the 
three-digit 
exponent. 
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The forms E<w>.<d> and D<w>.<d> must not be 
used if the absolute value of the exponent to 
be printed exceeds 999. 


The scale factor controls the decimal 
normalization of the printed E or D field. If 
the scale factor, <k>, is in the range (= 
d<k<=9), then the output field contains exactly 
<k> leading zeros after the decimal point and 
<d> + <k> significant digits after this. If 
(@<k<d+2), then the output field contains 
exactly <k> significant digits to the left of 
the decimal point and (d=k-1) places after the 
decimal point. Other values of <k> are errors, 


G real editing--The G edit descriptor takes the 
forms G<w>.<d> and G<w>.<d>E<e>. For either 
form, the input field is <w> characters wide, 
with a fractional part consisting of <d> 
digits. If the scale factor is greater than 
one, the exponent. part. consists of <e> digits. 


G input editing is the same as F input editing. 


G output editing is dependent on the magnitude 
of the data being edited. Table 4-3 
illustrates the output equivalent for the 
magnitude of data. 


Se 


Table 4-3; Data Coswersion Equivalents 


M < Gl ~~ E<w>.<d> 
6.1 <=M<1 F(<wo-n) .<d>,n('b') [1, 2] 
1<=M< 19 F(<w>=n) . (<d>=1), n('b') 


e eo 


16** (<d>=2) <= M 


<16** (<d>=1) F(<w>=n) .1, n(‘b') 
19** (<d>=-1) <= M 

<16**<d> F(<w>en) .6, n("b*) 
M >= 19**<d> E<w> .<d> 


ar 


ee 
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Notes for Table 4=3: 
1. ‘b' represents a blank character. 


2. nis 4 for G<w>.<d>; 
n is <e>+2 for G<w>.<d>E<e>. 


Logical editing (L)-—-The edit descriptor takes 
the form L<w>, indicating that the field is <w> 
characters wide. The <iolist> element 
associated with an L edit descriptor must be of 
type LOGICAL. On input, the field consists of 
optional blanks, followed by an optional 
decimal point, followed by T (for .TRUE.) or F 
(for .FALSE.). Any further characters in the 
field are ignored, but accepted on input, so 
that .TRUE. and .FALSE. are valid inputs. On 
output, w-l blanks are followed by either T or 
F, aS appropriate. 


Character editing (A}-~The forms of the edit 
Gescripter are A or Al(w). In the first form, A 
acquires ar implied field width, <w>, from the 
number of characters in the <iolist> associated 
item. The <iolist> item must be of type 
CHARACTER if it is to be associated witn an A 
or A<w> edit descriptor. 


On input, if <w> exceeds or equals the number 
of characters in the <iolist> element, the 
rightmost characters of the input field are 
used as the input characters; otherwise, the 
input characters are left-justified in the 
input <iolist> item and trailing blanks are 
provided. 


If the number of characters input is not equal 
to <w>, then the input field will be 
blankfilled or truncated on, tne right to the 
length of <w> before being transmitted to the 
<iolist> item. For exanple, if the following 
program fragment is executed, 


CHARACTER*1@ C 
READ(*,"(AL5)") C 


and the following thirteen characters are typed 
in at the keyboard, 


‘ABCDEFGHIJKLM® 


the input field will be filled to fifteen 
characters: 


"ABCDEFGHIJKLM ° 


Then the rightmost ten characters will be 
transmitted to the <iolist> element C: 


*FGHEIKLM 


On output, if <w> exceeds the characters 
produced by the <iolist> item, leading blanks 
are provided; otherwise, the leftmost <w> 
characters of the <iolist> item are output. 


4.5 LIST-DIRECTED 1/0 


A list-directed record is a sequence of values and 
value Separators. 


Each value in a list-directed record is one of the 


following: 

1. A constant 

2. A null value 

3. kither of the above multiplied by an unsigned, 


nonzero, integer constant; that is, r*c (r 
successive appearances of the constant c) or r* 
(yr successive null values). Except in string 
constants, none of these may have embedded 
blanks. 


Each value separator in a list~directed record is 
one of the following: 


‘Lg 
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A comma, optionally preceded or followed by one 
or more contiguous blanks 


A slash, optionally preceded or followed by one 
or more contiguous blanks 


One or more contiguous blanks between two 
constants, or after the last constant 
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Except as noted in the following list, input forms 
acceptable to format specifications for a given type 
are also acceptable for list-directed formatting. 


The form of the input value must be acceptable for 
the type of the input list item. Never use blanks 
as zeros. Only use embedded blanks within character 
constants, as specified in the following list. Note 
that the end-of-record has the effect of a blank, 
except when it appears within a character constant. 


1. Real or double precision constants--A real or 
double precision constant must. be a numeric 
input field; that is, a field suitable for F 
editing. It is assumed to have no fractional 
digits unless there is a decimal point within 
the field. 


2. Logical constants—~A logical constant must not. 
include either slashes or commas among the 
optional characters permitted for L editing. 


3. Character constants<-A character constant. is a 
nonempty string of characters, enclosed in 
Single quotation marks. Each single quotation 
mark within a character constant must be 
represented by two single quotation marks, with 
no intervening blank or end=-of-record. 


Character constants may be continued from the 
end of one record to the beginning of the next; 
the end of the record doesn't cause a blank or 
other character to become part. of the constant. 
The constant may be continued on as many 
records as needed and may include the 
characters blank, comma, and slash. 
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If the length <n> of the list item is less than 
or equal to the length <m> of the character 
constant, the leftmost <n> characters of the 
latter are transmitted to the list item. If 
<n> is greater than <m>, the constant is 
transmitted to the leftmost <m characters of 
the list item. 


The remaining <n> minus <m> characters of the 
list item are filled with blanks. The effect 
is the same as if the constant were assigned to 
the list item in a character assignment 
statement. 


Null values-~You can specify a null value in 
one of three ways: 


ae No characters between successive value 
separators. 


b. No characters preceding the first value 
separator in the first record read by each 
execution of a list-directed input 
statement 


om The r* form (described at the beginning of 
Section 4.5, “List-Directed I/0") 


A null value has no effect on the definition 
status of the corresponding input list item. 
If the input list item is defined, it retains 
its previous value; if it is undefined, it 
remains so. 


A slash encountered as a value separator during 
execution of a list-directed input statement 
stops execution of that statement after the 
assignment of the previous value. Any further 
items in the input list are treated as if they 
were null values. 


Blanks--All blanks in a list-directed input 
record are considered to be part of some value 
separator, except for the following: 


Qe blanks embedded in a character constant 


b. leading blanks in the first record read by 
each execution of a list-directed input 
statement (unless immediately followed by 
a Slash or comma) 


4.5.2 LIST~DIRECTED OUTPUT 


The form of the values produced is the same as 
required for input, except as noted in the following 


list. 


l. 


New records are created as necessary, but 
except for character constants, neither the end 
of a record nor blanks will occur within a 
constant. 


Logical output constants are T for the value 
true and F for the value false. 


Integer output constants are produced with the 
effect. of an I12 edit descriptor. 


Real and double precision constants are 
produced with the effect of either an F or an E 
edit descriptor, depending on the value of x in 
the following range: 


19**§ <= x <= 19**7 


ae If x is within the range, the constant is 
produced using O@PF16.7 for single 
precision and @PF23.14 for double 
_ precision. 


Ds If x is outside the range, the constant is 
produced using 1PE14.6 for single 
precision and 1P£21.13 for double 
precision. 


Character constants produced have the following 
characteristics: 


a. They are not delimited by apostroches 
(single quotation marks). 


b. They are neither preceded nor followed by 
a value separator. 


c. Each internal apostrophe (single quotation 
mark) is represented by one externally. 


d. A blank character is inserted at the start 
ef any record that begins with the 
continuation of a character constant from 
the preceding record. 


Slashes, as value separators, and null values 
are not produced by list-directed formatting. 


In order to provide carriage control when the 
record is printed, each output record begins 
with a blank character. 


CHAPTER 5 


PROGRAMS, SUBROUTINES, AND FUNCTIONS 


As described in Section 1.2, a program mit is 
either a main program, a subroutine, or a function, 
Functions and subroutines are collectively called 
subprograms, or procedures. The PROGRAM, 
SUBROUTINE, and FUNCTION statements, as well as the 
statement function statement, are described in 
detail in Section 3.2. Related information is 
provided in the entries for the CALL and RETURN 
statements. 


This chapter supplenents the discussion of these 
individual statements with information on tyvces of 
functions and a description of the relationship 
between formal and actual arguments in a function or 
subroutine call. 


5.1 MAIN PROGRAM 


A main program is any program unit that does not 
have a FUNCTION or SUBROUTINE statement as its first 
statement. The first statement of a main program 
may be a PROGRAM statement. If the main program 
does not have a program statement, it will be 
assigned the name MAIN. The namz ‘AIN then cannot 
be used to name any other global entity. 


The execution of a program always begins with the 
first executable statement in the main program, 
Consequently, there must be precisely one main 
program in every executable program. 
For further information about programs, see Section 
Bear o0. 

5.2 SUBROUTINES 
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A subroutine is a program unit that can be called 
from other program units with a CALL statement. 
When invoked, a subroutine performs the set of 
actions defined by its executable statements and 
then returns control to the statement inmediately 
following the one that called it. 


A subroutine does not directly return a value, 
although values can be passed back to the calling 
program unit via arguments or common variables. For 
further information about subroutines, see Section 
3.2.37. amd Section 3.2.4. 


5.3 FUNCTIONS 
A function is referred to in an expression ard 
returns a value that is used in the computation of 
that expression. There are three kinds of 
functions: 
I External functions 
26 Intrinsic functions 


35 Statement functions 


Each of these is described in more detail in the 
following sections. 


Reference to a function may appear in an arithmetic 
or logical expression. When the function reference 
is executed, the function is evaluated and the 
resulting value used as an operand in the expression 
that contains the function reference. The format of 
a function reference is as follows: 


<fname> ([<arg> [, <arg>]}] ...]) 
<fname> is the user-defined name of an 


external, intrinsic, or statement function. 
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<arg> is an actual argument. 


The rules for arguments for functions are identical 
to those for subroutines and are described in 
Section 3.2.4. Some additional restrictions that 
apply for intrinsic functions and for statement 
functions are described in Section. 5.3.2 and Section 
5.3.3. 


5e3-1 EXTERNAL FUNCTIONS 


An external function is specified by a function 
program unit. It begins with a FUNCTION statement 
and ends with an END statement. It may contain any 
kind of statement other than a PROGRAM statement, 
FUNCTION statement, or a SUBROUTINE statement. 


53-2 INTRINSIC FUNCTIONS 


Intrinsic functions are predefined by the MS-FORTRAN 
language and available for use in an MS-FORTRAN 
program. Table 5.1 gives the name, definition, 
argument type, and function type for all of the 
intrinsic functions available in MS-FORTRAN, with 
additional notes following the table. 


An IMPLICIT statement cannot alter the type of an 
intrinsic function. For those intrinsic functions 
that allow several types of arguments, all arguments 
in a single reference must be of the same type. 


An intrinsic function name can appear in an 
INTRINSIC statement. An intrinsic function name 
also can apoear in a type statement, but only if the 
type is the same as the standard type of that 
intrinsic function. 


Arguments to certain intrinsic functions are limited 
by the definition of the function being canputed. 


For example, the logarithm of a negative number is 
mathematically undefined, and therefore not 
permitted. 


All angles in Table 5.1 are expressed in radians. 
All arguments in an intrinsic function reference 
must be of the same type. X and Y are real, I and J 
are integer, and C, Cl, and C2 are character values. 
Numbers in Square brackets in column 1 refer to the 
notes following the table. 


Furthermore, REAL is equivalent to REAL*4, DOUBLE 
PRECISION is equivalent to REAL*8. If the specified 
type of the argument is INTEGER, the type may be 
INTEGER*2 or INTEGER*4, If the specified type of 
the function is INTEGER, the type will be the 
default integer determined by the SSTORAGE 
metacommand. (For further information, see Section 
6.2.8.) 


Fable 5—l: Intrinsic Fanctions 


TYPE OF TYPE OF 


NAME DEFINITION ARGUMENT FUNCTION 
Type Conversion 
INT (X) [1] Convert to integer REAL*4 Int 
Int Int 
IFIX (X) Convert to integer REAL*4 Int 
IDINT (2) Convert to integer REAL¥8 Int 
REAL (X) [2] Convert to REAL*4 Int REAL *4 
REAL*4 REAL*®4 
FLOAT (T) Convert to REAL*4 Int REAL *4 
ICHAR(C) [37 Convert to integer Char Int 
CHAR (X) = [3] Convert to character Int Char 
SNGL (X )} Convert to REAL*4 REAL*8 REAL*4 
DBLE(X) [4] Convert to REAL*8 Int REAL*8 


REAL*4 REAL*8 
REAL*8 REAL*8 


Truncation 
AINT (X). Truncate to REAL*4 REAL*4 REAL*4 
DINT (X) Truncate to REAL*8 = REAL*8 REAL*8 
Nearest 
Whole Number 
ANINT (X) Round to REAL*4 REAL*4 REAL*4 
DNINT (X) Round to REAL*8 REAL*8 REAL*8 


Nearest Integer 


NINT (X) Round to integer REAL*4 Int 
IDNINT (X) Round to integer REAL*8 Int 
Absolute Value 

TABS (1) Int absolute Int Int 
ABS (X) REAL*4 absolute REAL*4 REAL*4 
DABS (X) REAL*8 absolute REAL*8 REAL*8 


Remainder ing 
MOD (I,J) 
AMOD (X, Y) 
DMOD (X, Y) 


Transfer of 
Sign 

ISIGN (I,J) 
SIGN (X,Y) 
DS IGN (X,Y) 


Positive 
Difference [5] 
IDIM(I,J) 
DIM(X, Y) 
DDIM (X, Y) 


Choosing 

Largest Value 
MAXG (I, Jyeee) 
AMAX] (X, Ypoe e) 
AMAXG (I,J, «««) 
MAXI (X, Ypooe) 
DMAX] (X,Yy eee) 


Choosing 
Smallest Value 
MING (I,J, ove) 
AMIN] (X,Y,.«) 
AMINO (I,J,ece) 
MINI (X,Y¥ye50e) 
DMIN1 (X,Y, cee) 


RFAL*8 Product 
DPROD 


Square Root 
SORT 
DSQRT 


Int remainder 
REAL*4 renainder 
REAL*8 renainder 


Int transfer 
REAL*4 transfer 
REAL*8 transfer 


Int difference 
REAL*4 difference 
REAL*8 difference 


Int maximum 
RFAL*4 max imun 
REAL*4 maximum 
Int max imun 
REAL*8 maximum 


Int minimum 
REAL*4 minimun 
REAL*4 minimum 
Int minimun 
REAL*8 minimun 


REAL*8 product 


Square root 
REAL*8 square root 


Int 
REAL *4 
REAL*8 


Int 
REAL *4 
REAL*8 


Int 
REAL*4 
REAL*8 


Int 
REAL*4 
Int 
REAL*4 
REAL¥*8 


Int 
REAL*4 
Int 
REAL *4 
REAL*8 


REAL*4 


REAL*4 
REAL*8 


Int 
REAL *4 
REAL*8 


Int 
REAL *4 
REAL*8 


Int 
REAL *4 
REAL*8 


Int 
REAL *4 
REAL*4 
Int 
REAL*8 


Int 
REAL *4 
REAL*4 
Int 
REAL*8 


REAL*8 


REAL*4 
REAL *8 


Exponential 


EXP (X) REAL*4 e to power REAL*4 REAL*4 
DEXP (X) REAL*8 e to power REAL*8 REAL*8 
Natural 
Logarithm 
ALOG (X) Nat'l log of REAL*4 REAL*4 REAL*4 
DLOG (X) Nat'l log of REAL*8 REAL*8 REAL*8 
Common 
Logarithm 
ALOG1@ (X) Common log of REAL*4 REAL*4 REAL*4 
DLOG1@ (X) Common log of REAL*8 REAL*8 REAL*8 
Sine 
SIN (X) REAL*4 sine REAL*4 REAL*4 
DS IN (X) REFAL*8 sine REAL*8 REAL*8 
Cosine 
COS (X) REAL*4 cosine REAL*4 REAL*4 
DCOS (X) REAL*8 cosine REAL*8 REAL*8 
Tangent 
TAN (X) REAL*4 tangent REAL*4 REAL*4 
DTAN (X) REAL*8 tangent REAL*8 REAL*8 
Arc Sine 
ASIN (X) REAL*4 arc sine REAL*4 REAL*4 
DASIN (X) REAL*8 arc sine REAL*8 REAL*8 
Arc Cosine 
ACOS (X) REAL*4 arc cosine REAL*4 REAL*4 
DACOS (X) REAL*8 arc cosine RFAL*8 REAL*8 
Arc Tangent 
ATAN (X) REAL*4 arc tangent REAL*4 REAL*4 
DATAN (X) REAL*8 arc tangent REAL*8 REAL*8 
ATANZ2 (X,Y) REAL*4 arctan of X/Y REAL*4 REAL*4 
DATAN2 (X,Y) RFAL*8 arctan of X/Y REAL*8 REAL*8 


Hyperbolic 
Sine 
SINH (X) 


DS INH (X) 


Hyperbolic 
Cosine 
COSH (X%) 


DCOSH (X) 


Hyperbolic 
Tangent 
ANH (X) 


DTANH (X) 


Lexically 
Greater Than 
or Equal 

LGE (C1,C2) 


Lexically 
Greater Than 
LGT (C1,C2) 


Lexically Less 


Than or 


Equal [6] 
EGE (CT, C2) 


Lexically Less 
Than 
LLT (C1,C2) 


REAL*4 hyperbolic 
sine 
REAL*8 hyperbolic 
sine 


REAL*4 hyperbolic 
cosine 
REAL*8 
hyperbolic cosine 


REAL*4 hyperbolic 
tangent . 
REAL*8 
hyperbolic tangent 


Ist argument greater 
than or equal to 2nd 


Ist argument greater 
than second 


Ist argument less 
than or equal to 2nd 


lst argument less 
than second 


REAL*4 


REAL*8 


REAL*4 


REAL*8 


REAL*4 


-REAL*8 


Char 


Char 


Char 


Char 


REAL*4 


REAL*8 


REAL*4 


REAL*8 


REAL*4 


REAL*8 


Logical 


Logical 


Logical 


Logical 


End of File [7] 
EOF (X) Int end of file Int Logical 


Notes for Table 5.1 


Le For X of type INTEGER, INT(X)=X. For X of 
type REAL or REAL*8, if X is greater than 
or equal to zero, then INT(X) is the 
largest integer not greater than X, and if 
X is less than zero, then INT (X) is the 
most negative integer not less than X. 

For X of type REAL, IFIX(X) is the same as 
INT (X) . 


2. For X of type REAL, REAL(X)=X. For X of 
type INTEGER or REAL*8, REAL (X) is as much 
precision of the significant part of X as 
a real datum can contain. For X of type 
INTEGER, FLOAT(X) is the same as REAL(X). 


3. For X of type REAL*8, DBLE(X)=X. For X of 
type INTEGER or REAL, DBLE(X) is as much 
precision of the significant part of X as 
a double precision datum can contain. 


4, ICHAR converts a character value into an 
integer value. The integer value of a 
character is the ASCII internal 
representation of that character, and is 
in the range @ to 255. For any two 
characters, cl and c2, (cl .LE. c2) is 
eTRUE. if and only if (ICHAR(cl) .LE. 
ICHAR(c2)) is .TRUE. 


CHAR<i> returns the <i>th character in the 
collating sequence. The value is of type 
character, length one, while <i> must be 
an integer expression whose value is in 
the range @ <= <i> <= 255, 


[CHAR (CHAR<i>) = <i> for 6 <= <i> <= 255. 


u 


CHAR (ICHAR (c) ) c for any character c in 
the character set. 


DIM(X,Y) is X-Y if %>y, zero otherwise. 


LGE (X,Y) returns the value .TRUE. if X = Y 
or if X follows Y in the ASCII collating 
sequence; otherwise it returns .FALSE. 


LCT (X,Y) returns .TRUE. if X follows Y in 
the ASCII collating sequence; otherwise 
it returns .FALSE. 


LLF (X,Y) returns .TRUE. if X = Y or if X 
precedes Y in the ASCII collating 
sequence; otherwise it returns .FALSE. 


LLT (X,Y) returns .TRUE. if X precedes Y in 
the ASCII collating sequence; ctherwise 
it returns .FALSE. 


If the operands are of unequal length, the 
shorter operand is considered to be 
blankfilled on the right to the length of 
the longer. , 


FOF (X) returns the value .TRUE. if the 
unit specified by its argument is at or 
past the end-of-file record; otherwise it 
returns .FALSE. The value of X must 
correspond to an open file, or to zero 
which indicates the screen or keyboard 
device. 


5.3.3 STATEMENT FUNCTIONS 


A statement function is defined by a single 
statement and is similar in form to an assignment 
statement. A statement function statement can only 
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appear after the specification statements and before 
any executable statements in the program unit in 
which it appears. 


A statement function is not an executable statement, 
Since it is not executed in order as the first 
statement in its particular program unit. Rather, 
the body of a statement function serves to define 
the meaning of the statement function. It is 
executed, as any other function, by the execution of 
a function reference in an expression. 


For information on the syntax and use of a statement 
function statement, see Section 3.2.35, "The 
Statement Function Statement." 


5-4 ARGUMENTS 


A formal argument is the name by which the argument 
is known within.a function or subroutine; an actual 
argument is the specific variable, expression, 
array, etc., passed to the procedure in question at 
any specific calling location. The relationship 
between formal and actual arguments in a function or 
subroutine call is discussed in detail in the 
following paragraphs. 


Arguments pass values into and out of procedures by 
reference. The number of actual arguments must be 
the same as the number of formal arguments, and the 
corresponding types must agree. 


Uoon entry to a subroutine or function, the actual 
arguments are associated with the formal arguments, 
much as an EQUIVALENCE statement associates two or 
more arrays or variables, amd COMMON statements in 
two or more program units associate lists of 
variables. This association remains in effect wtil 
execution of the subroutine or function is 
terminated. Thus, assigning a value to a formal 
argument during execution of a subroutine or 
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function may alter the value of the corresponding 
actual argument. 


Tf an actual argument is a constant, function 
reference, or an expression other than a simple 
variable, assigning a value to the corresponding 
formal argument is not permitted, and can have some 
strange side effects. In particular, assigning a 
value to a formal argument of type CHARACTER, when 
the actual argument is a literal, can produce 
anomalous behavior. 


If an actual argument is an expression, it is 
evaluated immediately prior to the association of 
formal and actual arguments. If an actual argument 
is an array element, its subscript expressions are 
evaluated just prior to the association, and remain 
constant throughout the execution of the procedure, 
even if they contain variables that are redefined 
during the execution of the procedure. 


A formal argument that is a variable can be 
associated with an actual argument that is a 
variable, an array element, or an expression. 


A formal argument that is an array can be associated 
with an actual argument that is an array or an array 
element. The number and size of dimensions in a 
formal argument may be different from those of the 
actual argument, but any reference to the formal 
array must be within the limits of the menory 
sequence in the actual array. While a reference to 
an element outside these bounds is not detected as 
an error in a running MS-FORTRAN program, the 
results are unpredictable. 


A formal argument may also be associated with an 
external subroutine, function, or intrinsic function 
if it is used in the body of the procedure as a 
subroutine or function reference, or if it appears 
in an EXTERNAL statement. 


A corresponding actual argument must be an external 
subroutine or function, declared with the EXTERNAL 
statement, or an intrinsic function permitted to be 
associated with a formal procedure argument. The 
intrinsic function must have been declared with an 
INTRINSIC statement in the program unit where it is 
used as an actual argument. 


All intrinsic functions, except the following, may 
be associated with formal procedure arguments: 


INT CHAR AMAXG 
TFIX LGE MAX 
IDINT LGT MING 
FLCAT LiLE AMINi 
SNGL LLT DMIN1 
REAL MAX AMING 
DBLE AMAX1 MINL 
TCHAR DMAXL 


Metacommands are directives that order the MS- 
FORTRAN Canpiler to process MS-FORTRAN source text 
in a specific way. MS~FORTRAN metacommands are 
Gescribed briefly in Table 6.1 and discussed in more 
detail in the remainder of the chapter. 


fable 6.1. The MS-FORTRAN Metaconands 
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Metacarnmand Action 

SDEBUG Turns on runtime aheeind for 
arithmetic operations and 
assigned GOTO. SNODEBUG turns 
checking off. 


SDO66 Causes DO statements to have 
FORTRAN 66 semantics. 

SINCLUDE: <file> Directs compiler to proceed as 
if <file> were inserted at that 
point. 

SLINESIZEs <r> Makes subsequent pages of 


listing <n> columns wide. 


SLIST Sends subsequent listing 
information to the listing file. 
SNOLIST stops generation of 
listing information. 


SPAGE Starts new page of listing. 


SPAGES IZEs <n> Makes subsequent pages of 
listing <m lines long. 


oy 
t 
pes 


SSTORAGEs <n> Allocates <m bytes of memory to 
all LOGICAL or INTEGER variables 
in source. 


SSTRICT Disables MS~FORTRAN features not 
in 1977 subset or full language 
standard. SNOTSTRICT enables 
them. 


SSUBTITLE: '<sub>' Gives subtitle for subsequent 
pages of listing. 


STITLE: '<title>' Gives title for subsequent pages 
of listing. 
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Metacammands can be intermixed with MS-FORTRAN 
source text within an MS-FORTRAN source program; 
however, they are not part of the standard FORTRAN 
language. 


Any line of input to the MS-FORTRAN Compiler that 
begins with a "S" character in column one is 
interpreted as a metacommand and must conform to one 
of the following formats. 


A metacommand and its arguments (if any) must fit on 
a single source line; continuation lines are not 
permitted. Also, blanks are significant, so that 
the following pair is not equivalent: 

SS TRICT 

$STRICT 

6.2 METACOMMAND DIRECTORY 

The remainder of this chapter is an alphabetical 
directory of available MS-FORTRAN metacommands. 
6.2.1 THE GDBBUG AND SNODEBUG MATACOMMANDS 


6~2 


Syntax 


Purpose 


Remarks 


G.2.2 THE § 


Syntax 


Purpose 


Remarks 


S [NO] DEBUG 


Directs the compiler to test all 
subsequent arithmetic operations for 
overflow and division by zero, test 
assigned GOTO values against the allowable 
list in an assigned GTO statement, and 
provide the runtime error-handling system 
with source filenames and line numbers. A 
runtime error occurs if one of these 
conditions is detected. If any runtime 
error occurs, the source line and filename 
are displayed on the console. 


The metacarmmand can appear anywhere in a 
program. 


The default value of the pair of 
metaconmands, SDEBUG and SNODEBUG, is 
SNODEBUG, 


$DO66 


Causes DO statements to have FORTRAN 66 
semantics. 


SbO66 must precede the first declaration 
or executable statement of the source file 
in which it occurs. 


The FORTRAN 66 semantics are as follows: 


Le All DO statements are executed at 
least once. 


Ze Extended range is permitted; that 


is, control may transfer into the 
syntactic body of a DO statement. 
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The range of the DO statement is 
thereby extended to logically include 
any statement that may be executed 
between a DO statement and its 
terminal statement. However, the 
transfer of control into the range of 
a DO statement prior to the execution 
of the DO statement or following the 
final execution of its terminal 
statement is invalid. 


If a program contains no SDO66 
metacommand, the default is to FORTRAN 77 
semantics, as follows: 


1. DO statements may be executed zero 
times, if the initial control 
variable value exceeds the final 
control variable value (or the 
corresponding condition for a DO 
statement with negative increment). 


2. Extended range is invalid; that is, 
control may not transfer into the 
syntactic body of a DO statement. 
(Both standards do permit transfer of 
control out of the body of a DO 
statement.) 


6.2.3 THE SINCLUDE METACOMMAND 


Syntax 


Pur pose 


Remarks 


SINCLUDE: ‘<file>' 

Directs the compiler to proceed as though 
the specified file were inserted at the 
point of the SINCLUDE, 


<file> is a valid file specification as 
described for your operating system. 


At the end of the included file, the 
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compiler resumes processing the original 
source file at the line following 
SINCLUDE. 


The compiler imposes no limit on nesting 
levels for SINCLUDE metacommands. 
SINCLUDE metacommands are particularly 
useful for guaranteeing that several 
modules use the same declaration for a 
COMMON block. 


Geee4 The SLIBESIZE Metac 


Syntax SLINESIZE: <m 


Purpose Formats subsequent pages of the listing 
<r columns wide. 


Remarks <n> is any positive integer. 


If a program contains no SLINESIZE 
metacommand, a default line size of 8 
characters is assumed, The minimun Line 
size is 4@ characters, the maximum is 132 
characters. 


6.2.5 THE SLIST AND SNOLIST METACOM 
Syntax  $(NO]LIST 


Purpose Sends subsequent Listing information to 
the listing file specified when starting 
the compiler. If no listing file is 
specified in response to the compiler 
prompt, the metacommand has no effect. 
SNOLIST directs that subsequent listing 
information be discarded. 


Remarks SLIST and SNOLIST can appear anywhere in a 
source file. 


The default condition for the pair of 


metacomanis, SLIST and SNOLIST, is SLIST. 


6.2.6 THE SPAGE METACOMMAND 


Syntax 
Purpose 


Remarks 


SPAGE 
Starts a new page of the listing. 


If the first character of a line of source 
text is the ASCII form feed character 
(hexadecimal code @Ch), it is considered 
as equivalent to the occurrence of a SPAGE 
metaconmand at that point. 


6.2.7 THE SPAGESIZE METACOMMAND 


Syntax 


Purpose 


Remarks 


SPAGESIZE: <n> 


Formats subsequent pages of the herang 
<n> lines high. 


<m> is any positive integer equal to or 
greater than 15. 


If a program contains no SPAGESIZE 
metacomand, a default page size of 66 
lines is assumed. 


6.2.8 THE $STORAGE METACOMMAND 


Syntax 


Purpose 


Remar ks 


SSTORAGE: <n> 

Allocates <n> bytes of memory for all 
variables declared in the source file as 
INTEGER or LOGICAL. 


<n> is either 2 or 4. Use a value of 2 
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6.2.9 THE SSYRICT AND SNHOPTSTRICT MOTACOMMANDS 


ICY 


MS-FORTRAN £ 
following: 


L. Cnaracter expressions 
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2. 


36 


4. 


5. 


to noncharacter variables. 


Character and noncharacter 
expressions may be campared. 


Character and noncharacter variables 
are allowed in the same COMMON block. 


Character and noncharacter variables 
may be equivalenced. 


Noncharacter variables may be 
initialized with character data. 


SSTRICT and SNOTSTRICT can appear anywhere 
in a source file. 


The default condition for the pair of 
metacarmmands, SSTRICT and SNOTSTRICT, is 
SNOTSTRICT. 


6.2.18 THE S$SUBTITLE METACOMMAND 


Syntax SSUBTITLE: ‘<subtitle>'! 


Purpose Assigns the specified subtitle for 
subsequent pages of the source listing 
(until overridden by another SSUBTITLE 
metacommand) . 


Remarks <subtitle> is any valid character 
constant. ‘The maximum length is 46 
characters. 


If a program contains no SSUBTITLE 
metacommand, the subtitle is a null 
string. 


6.2.11 THE STITLE a 


Syntax STITLE: ‘<title>' 


Purpose Assigns the specified title for subsequent 
pages of the listing (until overridden by 
another STITLE metacommand) . 


Remarks <title> is any valid character constant. 
The maximum length is 4@ characters. 


If a program contains no STITLE 
metacommand, the title is a null string. 


MS-FORTRAN AND ANSI SUBSET FORTRAN 


This appendix describes how MS-FORTRAN differs fran 
the standard subset language. The ANSI standard 
defines two levels, full FORTRAN and subset FORTRAN. 
MS-FORTRAN is a superset of the latter. The 
differences between MS-FORTRAN and the standard 
subset FORTRAN fall into two general categories: 
full language features and extensions to the 
standard. 


A.1 FULL LANGUAGE FEATURES 


Several features fran the full language are included 
in this implementation. In all cases, a program 
written to canply with the subset restrictions 
compiles and executes properly, since the full 
language includes the subset constructs. 


l. Subscript expressions--The subset does not 
allow function calls or array element 
references in subscript expressions; however, 
these are allowed in the full language and in 
this implementation. 


26 DO variable expressions--The subset restricts 
expressions that define the limits of a DO 
statement; the full language does not. MS- 
FORTRAN also allows full integer expressions in 
DO statement limit computations. Similarly, 
arbitrary integer expressions are allowed in 
implied DO loops associated with READ and WRITE 
statements. 


3. Unit I/O number~-MS-FORTRAN allows an I/O unit 
to be specified by an integer expression, as 


4. 


5. 


does the full language. 


Expressions in input/output list <iolist>--The 
subset does not allow expressions to appear in 
an <iolist>, whereas the full language does 
allow expressions in the <iolist> of WRITE 
statements. MS-FORTRAN allows expressions in 
the <iolist> of a WRITE statement providing 
that the expressions do not begin with an 
initial left parenthesis. 


Note that an expression like (A+B)*(C+D) can be 
specified in an output list as +(A+B)*(C+D). 
Doing so does not generate any extra code to 
evaluate the leading plus sign. 


Double precision--The subset does not allow 
double precision real numbers; MS-FORTRAN 
provides for them as in the full language. 


Bdit descriptors--MS-FORTRAN allows for D and G 
edit descriptors as in the full language. 


Expression in canputed GOTO--MS-FORTRAN allows 
an expression for the selector of a camputed 
GOTO, consistent with the full, rather than the 
subset, language. 


Generalized I/O—MS-FORTRAN allows both 
sequential and direct access files to be either 
formatted or unformatted. The subset language 
requires direct access files to be unformatted 
and sequential files to be formatted. 


MS-FORTRAN also includes the following: 

ae an augmented OPEN statement that takes 
additional parameters not included in the 
subset (see Section 3.2.28.) 

bo. a form of the CLOSE statement, which is 
not included in the subset (see Section 
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3.2.5.) 


om END=, ERR=, STATUS=, and FILE= specifiers 
on I/O statements 


List-directed I/O-=MS-FORTRAN provides for 
list-directed I/O as described in the full 
language standard. 


A.2 EXTENSIONS TO THE STANDARD 


The implenented language also has several minor 
extensions to the full language stardard. 


l. 


3. 


User-defined names greater than six characters 
are allowed, although only the first six 
characters are significant. 


Tabs in source files are allowed. See Section 
2e1.3, for details. 


Metacommands, or compiler directives, have been 
added to allow the programmer to carmunicate 
certain information to the compiler. The 
metacommand line is characterized by a dollar 
sign ($) appearing in colum 1. A metacommand 
line may appear any place that a comment line 
can appear, although certain metacommands are 
restricted as to their location within a 
program (see Section 2.2.4.) 


A metacommand line conveys certain compile time 
information about the nature of the current 
compilation to the MS-FORTRAN Compiler. 
Metacommands are described in Chapter 6. 


The standard is relaxed when the SNOTSTRICT 
metaconmmand is in effect. This relaxation 
allows, for example, such MS-FORTRAN features 
aS assignment of character to any variable type 
and initialization of any variable with 
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8. 


character data. See Section 6.2.9, for a 
complete list of these features. 


Tne backslash (\) edit control character can be 
used in format specifications to inhibit normal 
advancement to the next record associated with 
the completion of a READ or WRITE statement. 
This is particularly useful when pranpting to 
an interactive device, such as the screen, so 
that a response can appear on the same line as 
the prompt. 


An end-of-—file intrinsic function, EOF, is 
provided. The function accepts a unit 
specifier as an argument and returns a logical 
value that indicates whether the specified unit 
is at its end-of-file. 


Both upper and lowercase source input are 
allowed. In most contexts, lowercase 
characters are treated as indistinguishable 
from their uppercase counterparts. Lowercase, 
however, is significant in character constants 
and Hollerith fields. 


Binary files are similar to unformatted 
sequential files except that they have no 
internal structure. This allows the program to 
create or read files with arbitrary contents, 
which is particularly useful for files created 
by or intended for programs written in 
languages other than FORTRAN. 
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963 3FH ? 096 60H ‘ 
G64 40H @ 997 61H a 
965 41H A 998 62H b 
066 42H B 999 63H c 
G67 43H c 108 64H a 
G68 44H D 101 65H e 
969 45H E 102 66H f 
076 46H F 103 67H g 
O71 47H G 104 68H h 
072 48H H 105 69H i 
973 49H I 106 6AH j 
974 4AH a 107 6BH k 
075 4BH K 198 6CH i 
576 4CH L 109 6DH m 
977 4DH M 110 6EH n 
978 4EH N 111 6FH 0 
879 AFH ) 112 70H p 
980 56H P 113 71H q 
981 51H Q 114 72H c 
G82 52H R 115 73H s 
G83 53H S 116 74H t 
984 54H T 117 75H u 
985 55H U 118 76H V 
086 56H Vv 119 77H Ww 
987 57H W 129 78H x 
888 58H X 121 79H y 
G89 59H Y 122 7AH z 
998 SAH Z 123 7BH { 
G91 5BH [ 124 7CH 

992 5CH ‘ 125 7DH | 
993 SDH ] 126 7EH - 
094 SEH : 127 TEH DEL 
895 SFH 


Dec=decimal, Hex=hexadecimal (H), CHR=character, 
LF=Line Feed, FF=Form Feed, CR=Carriage Return, 
DEL=Rub out 


APPENDIX C 


ERROR MESSAGES 


C.1 COMPILE TIME ERROR MESSAGES 


Code Message 


1 Fatal error reading source 

2 Non-numeric characters in label field 
3 Too many continuation lines 

4 Fatal end of file encountered © 


5 Label in continuation line 


25 


26 


Missing field in metacamand 
Cannot open file 

Unrecognizable metacamand 
Input file invalid format 

Too many nested include files 
Integer constant error 

Real constant error 

Too many digits in constant 
Identifier too long 

Character constant not closed 
zero length character constant 
Invalid character in input 
Integer constant expected 

Label expected 

Label error 

Type expected 

Integer constant expected 

Extra characters at end of statement 
"(" expected 

Letter already used in IMPLICIT 


")" expected 


Letter expected 

Identifier expected 

Dimensions expected 

Array already dimensioned 

Too many dimensions 

Incompatible arguments 

Identifier already has type 
Identifier already declared 
INTRINSIC FUNCTION not allowed here 
Identifier must be a variable 


identifier must be a variable or the 
current FUNCTION 


ye expected 

Named COMMON block already saved 
Variable already appears in COMMON 
Variables in two different COMMON blocks 


Number of subscripts conflicts with 
declaration 


Subscript out of range 


Forces location conflict for items in 
COMMON 


Forces location in negative direction 


Forces location conflict 


CH3 


47 


48 


49 


5@ 


Sd 


52 


53 


54 


55 


56 


57 


58 


59 


68 


61 


62 


63 


64 


65 


66 


Statement number expected 


CHARACTER and numeric items in same COMMON 
block 


CHARACTER and non character item conflict 
Invalid symbol in expression 
SUBROUTINE name in expression 
INTEGER or REAL expected 

INTEGER, REAL or CHARACTER expected 
Types not canpatible 

LOGICAL expression expected 

Too many subscripts 

Too few subscripts 

Variable expected 

"=" axpected 

Size of CHARACTER items must agree 
Assignment types do not match 
SUBROUTINE name expected 

Dummy argument not allowed 

Dummy argument not allowed 


Assumed size declarations only for dummy 
arrays 


Adjustable size array declarations only for 


C=4 


67 


68 


84 


85 


dummy arrays 


Assumed size must be last dimension 


Adjustable bound must be parameter 


COMMON 


or in 


Adjustable bound must be simple integer 


variable 


More than one main program 
Size of named COMMON must agree 
Dummy arguments not allowed 


COMMON variables not allowed 


SUBROUTINE, FUNCTION, or INTRINSIC names 


not allowed 


Subscript out of range 


Repeat count must be >= 1 


Constant expected 


Type conflict 


Number of variables does not match 


Label not allowed 


No such INTRINSIC FUNCTION . 


INTRINSIC FUNCTION type conflict 


Letter expected 


FUNCTION type conflict with previous call 


SUBROUTINE / FUNCTION already defined 


87 


88 


89 
98 
91 
93 
94 
95 
96 
98 
106 
161 
162 
163 
164 
105 
186 
197 
168 


183 


Argument type conflict 


SUBROUTINE / FUNCTION conflict with 
previous use 


Unrecognizable statement 

CHARACTER FUNCTION not allowed 

Missing END statement 

Fewer actual than dumny arguments in call 
More actual than dummy arguments in call 
Argument type conflict 

SUBROUTINE / FUNCTION not defined 
CHARACTER size invalid ? 

Statement order 

Unrecognizable statement 

Jump into block not allowed 

Label already used for FORMAT 

Label already defined 

Jump to FORMAT not allowed 

DO statement not allowed here 

DO label must follow DO statement 

ENDIF not allowed here 


Matching IF missing 


116 


lil 


improperly nested DO block in IF block 
ELSEIF not allowed here 

Matching IF missing 

Improperly nested DO or ELSE ae 
"(8 expected 

")" expected 

THEN expected 

Logical expression expected 

ELSE not allowed here 

Matching IF missing 

GOTO not allowed here 

GOTO not allowed here 

Block IF not allowed here 

Logical IF not allowed here 
Arithmetic IF not allowed here 

"3" expected 

Expression of wrong type 

RETURN not allowed here 

STOP not allowed here 

END not allowed here 


Label not defined 


132 
133 
134 
135 
136 
137 
138 
139 
14@ 
141 
142 
143 
144 
145 
146 
147 
148 
149 
156 
LOL 


152 


DO or IF block not terminated 
FORMAT not allowed here 

FORMAT label already referenced 
FORMAT label missing 

Identifier expected 

Integer variable expected 

TO expected 

Integer expression expected 
ASSIGN statement missing 
Unrecognizable character constant 
Character constant expected 
Integer expression expected 
STATUS option expected 

Only character expression allowed 
Conflicting options 

Option already defined 

Integer expression expected 
Unrecognizable option 

RECL= missing 

Adjustable arrays not allowed here 


End of statement encountered in implied Do 


153 Variable required as control for implied bo 


154 Expressions not allowed in I/O list 
155 REC= option already defined 

156 Integer expression expected 

Ss END= not allowed here 


158 END= already defined 


159 Unrecognizable I/O unit 

16g Unrecognigable format in I/O 

161 Options expected after ",* 

162 Unrecognizable I/O list element 

163 FORMAT not found 

i64 ASSIGN missing 

165 Label used as FORMAT 

166 Integer variable expected 

167 Label defined more than once as format 
283 CHARACTER FUNCTION not allowed 

406 Unit zero must be formatted and sequential 
497 ERR= already defined 


48 Too many labels 
489 invalid size for this type 


41g PRECISION expected 


Integer type conflict 
Dimension too big 

Invalid FUNCTION call 
INTRINSIC not allowed 
Unrecognizable character 
Blank not allowed in metacommand 
Metacommand not allowed here 
Size already defined 

Out of range 

CHARACTER type expected : 
Internal error 

Internal error 

Internal error 

Internal error 

CHARACTER type not expected 
Internal error 

Internal error 

Internal error 

Long integer conversion error 
Cannot convert to single 


Cannot convert to double 


C-16 


717 Internal error 


882 Invalid radix 

863 Starting location is odd 

Bea Real constant overflow 

865 Integer constant too big 

806 Missing actual argument 

867 Variable too big 

868 Data size exceeds max 

809 Numeric expected 

818 Numeric or CHARACTER expected 


KR MESSAGES 


Runtime errors fall into two classes: 

l. file system errors 

2. nonfile system errors 

Nonfile system errors include the following: 
ite wremory errors 

2. type REAL arithmetic errors 

3 cype INTEGER*4 arithmetic errors 

4, other errors 


tf you see an error message that is not listed, 
check your Operator's Reference Guide because the 


error may be related to the operating system. 


C.2Z.1 FILE SYSTEM ERRORS 

Code numbers 1680 through 1099 are status codes, 
always issued in conjunction with an OS status code. 
Error 


Code Message 


1006 Write error when writing end of file 


1882 Filename extension with more than 3 
characters 
1663 Error during creation of new file (disk or 


Girectory full) 


1004 Error during open of existing file (file not 
found) 


1685 Filename with more than 8 or zero characters 
1867 Total filename length over 21 characters 
10688 Write error when advancing to next record 
1889 File too big (over 65535 logical sectors) 


1016 Write error when seeking to direct record 
device 


1911 Attempt to open a random file to a non-disk 


device 

1@12 Forward space or back space on a non-disk 
device 

1813 Disk or directory full error during forward 


space or back space 


1206 Format missing final ")" 


C12 


Sign not expected in input 

Sign not followed by digit in input 

Digit expected in input 

Missing Nor 2 after B in format 

Unexpected character in format 

Zero repetition factor in format not allowed 
Integer expected for w field in format 


Positive integer required for w field in 
format 


*." expected in format 
integer expected for d field in format 
Integer expected for e field in format 


Positive integer required for e field in 
format 


Positive integer required for w field in 
format 


Hollerith field in format must not appear 
for reading 


Hollerith field in format requires 
repetition factor 


X field in format requires repetition factor 
P field in format requires repetition factor 


Integer appears before + or - in format 


integer expected after + or = in format 


P format expected after signed repetition 
factor in format 


Maximum nesting level for formats exceeded 
*")" has repetition factor in format 
Integer followed by , illegal in format 
"." is illegal format control character 


Character constant must not appear in 
format for reading 


Character constant in format must not be 
repeated 


"/" in format must not be repeated 
“\"" in format must not be repeated 


BN or BZ format control must not be 
repeated 


Attempt to reference unknown unit number 


Formatted I/O attempted on file opened 
as unformatted 


Format fails to begin with "(" 

I format expected for integer read 

F or E format expected for real read 

Two "." characters in formatted real read 
Digit expected in formatted real read 


L format expected for logical read 


C-14 


factor out of range of 4 


E or F format expected for real write 


from inpuk record 


to direct access 


Attempt to do direct access to a unit 
opened as sequential 


Unable to seek to file position 


126¢ 


1261 


1262 


1263 


1264 


1265 


1266 


1267 
1268 
1269 
1276 


1272 


1273 


1274 


1275 


1281 


Attempt to backspace unit connected to 
unblocked device 


Premature end of file of unformatted 
sequential file 


Invalid blocking in unformatted sequential 
file 


Incorrect physical record structure in 
unformatted file 


Attempt to do unformatted 1/0 to internal 
unit 


Attempt to put more than one record into 
internal unit 


Attempt to write more characters to 
internal unit than its length 


EOF called on unknown unit 

Dynamic file allocation limit exceeded 
Scratch file opened for read 

Console I/O error 


File operation attempted after error 
encountered on previous operation 


Keyboard buffer overflow: too many bytes 
written to keyboard input record (must be 
less than 132) 

Reading long integer 

Writing long integer 


Repeat field not on integer 


1282 Multiple repeat character 
1283 Invalid numeric data in list directed input 


1284 List directed numeric items bigger than 
record size 


1285 Invalid string in list directed input 

1298 End of file encountered 

1299 Integer variable not ASSIGNed a label used 
in assigned GOTO 

C.2.2 OTHER RUNTIME ERRORS 

Nonfile system error codes range from 2008 to 2999. 

In some cases, metacommands determine if errors are 

checked; in other cases, error codes are always 

checked. 

C.2.2.1 MEMORY ERRORS 

The heap is the storage area where MS-FORTRAN 

dynamically allocates storage for file control 

blocks. Since the stack and the heap grow toward 

each other, memory errors are all related; for 


example, a stack overflow can cause a “Heap is 
Invalid" error. 


Code Message 
2068 Stack Overflow 
2992 Heap is Invalid 
2652 Signed Divide By Zero 
(This error appears only when SDEBUG is set.) 


C-17 


2654 Signed Math Overflow 


2084 INTEGER Zero to Negative Power 


C.2.2.2 TYPE REAL ARITHMETIC ERRORS 


Error 
Code Message 


2106 REAL Divide By Zero 

2101 REAL Math Over flow 

2182 SIN or COS Argument Range 
2183 EXP Argument Range 

2104 SQRT of Negative Aegunent 
2105 LN of Non-Positive Argument 
2186 TRUNC/ROUND Argument Range 
2131 Tangent Argument Too Snall 
2132 ArcsSine or Arccosine of REAL > 1.0 
2133 Negative REAL to REAL Power 
2134 REAL Zero to Negative Power 
2135 REAL Math Underflow 


2136 REAL Indefinite (uninitialized or previous 
error) 


2137 Missing Arithmetic Processor 
You have linked your program with the 


runtime library intended for use with the 


C-18 


8887 numeric coprocessor, but there is no 
coprocessor on your system. Relink your 
program with the runtime library that 
emulates floating point arithmetic. 
C.2.2.3 TYPE INTEGER*4 ARITHMETIC ERRORS 


Error 
Code Message 


2298 Long integer divided by zero 
2281 Long integer math overflow 


2234 Long integer zero to negative power 


C.2.2.4 OTHER ERRORS 


Error 
Code Message 


2451 Assigned GOTO label not in list 
(This error appears only when SDEBUG is set.) 


